Нахождение максимального из отрицательных элементов матрицы Опции

[nblazhko]

Дан двумерный массив найти в нем максимальный из отрицательных элементов,подскажите плиз

[dream-x]

Дан двумерный массив найти в нем максимальный из отрицательных элементов,подскажите плиз

Я тебе советую азобраться в программе самому по себе знаю...
Вот код:

program pr;
const
     Nmax=10;
var
   a:array[1..Nmax,1..Nmax] of integer;
   max:real;
   i,j,n:integer;
begin
     read(n);
     for i:=1 to n do
         for j:=1 to n do
         begin
             write('a[',i,',',j,']=');
             readln(a[i,j]);
             end;
     for i:=1 to n do
         for j:=1 to n do
             begin
                  if a[i,j]<0 then
                  max:=a[i,j];
             end;
     for i:=1 to n do
         for j:=1 to n do
             begin
                  if a[i,j]<0 then
                     if a[i,j]>max then max:=a[i,j];
             end;
     writeln(max);
end.

[nblazhko]

Благодарю

[dream-x]

Благодарю

Ты только разберись во всем...