Дана Матрица А(5,5). 1. Найти сумму S отрицательных элементов расположенных на

program zz1;

const n = 5;  

     m = 5; // задаем количество частей в массиве

var  i, j, s, max, k:integer; // задаем переменные целого типа

a:array [1..n,1..m] of integer;

begin

for i:=1 to n do

 for j:=1 to m do // получаем числа и записываем их в массив

   a[i,j]:=random(101)-50;

for i:=1 to n do  // выводим приобретенный массив на экран

    begin

for j:=1 to m do

   write(a[i,j]:4);

   writeln;

   end;

for i:=1 to n do

 for j:=1 to m do

 if (j = n - i + 1)and(a[i,j]lt;0) then s:=s + a[i,j];

 writeln( сумма S отрицательных элементов расположенных на побочной диагонали = , s);

max:=-1000;

for i:=1 to n do

if a[i,2]gt; max then begin max:=a[i,2];k:=i;end;

writeln( наибольший элемент 2-го столбца = , max);

a[k,2]:=s;

for i:=1 to n do  // выводим приобретенный массив на экран

    begin

for j:=1 to m do

   write(a[i,j]:4);

   writeln;

   end;

end.