Дан массив 5 на 5. Найдите максимальное значение для каждого столбца и индексы максимального значения всего массива.

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; // задаем переменные целого типаbeginfor 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.