Дана Матрица А (5,5). 1. Найти сумму S отрицательных элементов расположенных на побочной диагонали. 2. Найти наибольший элемент 2-го столбца. 3. Заменить найденные максимальный элемент во 2-м столбце на значение суммы 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]<0) then s:=s + a[i, j];

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

max:=-1000;

for i:=1 to n do

if a[i, 2]> 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.