информатика

[Sabolch]

задан массив n чисел:
1) определить максимальный элемент среди отрицательных элементов и его порядковй номер
2) определить количество наибольших строк массива

[unbanned]

ну если с первым всё понятно...

program z;

const
  n = 20;

var
  m: array [1..n] of integer;
  i, j, max: integer;

begin
  max := -50;// вместо -50 нужно указать заведомо меньшее число напр. -1000000... 
//(просто у меня автозаполнение от -49 до 49 идет) или найти минимальный элемент массива и присвоить его значение
  randomize;
  writeln('введите массив:');
  for i := 1 to n do 
  begin
    m[i] := random(100) - 50;
    writeln('m', i, '=', m[i]);
  end;
  for i := 1 to n do
    if m[i] < 0 then if m[i] > max then 
      begin
        max := m[i];
        j := i;
      end;
  if max <> -50 then writeln('максимальный среди отрицательных: M', j, '=', max)
  else writeln('отрицательных элементов нет');
end.

то со вторым что-то не оч... если бы это был двумерный массив, то ладно, но где у одномерного массива строки???)))

[Pein95]

program kj;
label 1;
const
n=10;
var a:array [1..n] of integer;
i,max,k:integer;
begin
max:=0;
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if max>a[i] then
 begin
 max:=a[i];
 goto 1;
 end;
1:for i:=1 to n do
if (a[i]>max) and (a[i]<0) then
begin
max:=a[i];
k:=i;
end;
writeln('max=',max,' ','index-',k);
readln;
end.

ето первое задание
какие строки в числовом масиве не понял второго задания

[alex_fcsm]

Небольшое замечание по предыдущим двум постам, коллеги, достаточно хранить только индекс максимума

[Pein95]

я в паскале новичок) училса сам делаю так как умею) но спс за совет)

[unbanned]

непонятно...
типо

 for i := 1 to n do
    if m[i] < 0 then if m[i] > max then j := i;
  writeln('максимальный среди отрицательных: M', j, '=', m[j]);

только от этого ж ничего не меняется)) переменную max всё равно не уберешь... вывод особо тоже не упростился

[Mad_Cat]

Почему не уберешь то

  if m[i] >m[j] then i:=j

и вместо goto лучше break использовать

for i:=1 to n do
if 0>a[i] then
 begin
 J:=i;
 Break;
 end;

[Sabolch]

ну зачем первокурсников мучать такими заданиями ????

а так всем спасибо

[Melifaro86]

Знаете я все катаю из книг с Готовыми Домашними Заданиями по информатике
Если нужны книги по информатике, то тоже можете скачать.