Дан массив 5 на 5. Найдите максимальное значение для каждого столбца и индексы максимального значения всего массива. Найдите сумму главной диагонали. 36 26 5 19 62 46 83 99 26 50 63 51 86 62 63 10 24 59 26 73 8 14 13 15 15

program zz1;

const n = 5;

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

b:array [1 ... n, 1 ... m] of integer = ((36, 26, 5, 19, 62), (46, 83, 99, 26, 50), (63, 51,

86, 62, 63), (10, 24, 59, 26, 73), (8, 14, 13, 15, 15));

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

begin

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

begin

for j:=1 to m do

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

writeln;

end;

for j:=1 to n do

begin

for i:=1 to m do

begin

if b[i, j]>max1 then max1:=b[i, j]; / / находим максимальный для каждого столбца

if b[i, j]>max2 then max2:=b[i, j]; / / находим максимальный для всего массива

if i=j then s:=s + b[i, j]; / / находим сумму на главной диагонали

end;

writeln (' в ', j,'-ом столбце максимальный элемент = ', max1); / /выводим ответ

max1:=0;

end;

writeln ('максимальный элемент во всем массиве = ', max2); / /выводим ответ

writeln ('сумма элементов на главной диагонали = ', s); / /выводим ответ

end.