Дана двумерная матрица n ** m.найти максимально отрицательное и разместить его в центре...

Question

Дана двумерная матрица n на m.найти максимально отрицательное и разместить его в центре матрицы. Алгоритм и программа

Answer 1

Const m=5; n=4;
Var a:array[1..m,1..n] of integer; i,j,max:integer;
Begin
 randomize;
 for i:=1 to m do
   for j:=1 to n do a[i,j]:=random(201)-100;
 max:=0;
 for i:=1 to m do
   for j:=1 to n do
     if a[i,j] if max=0 then writeln('В матрице нет отрицательных элементов.')
  else a[(m div 2)+1,(n div 2)+1]:=max;
 for i:=1 to m do        //Вывод матрицы. Необязательно.
   begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
   end;
End.