Дана прямоугольная матрица. Найти строку с наибольшей и наименьшей суммой элементов. Вывести на печать найденные строки и суммы их элементов.

program arrays_19;

var i, j, x1, x2, k, max, min: integer;

m: array[1 ... 10,1 ... 10] of integer;

begin

for i:=1 to 10 do begin

for j:=1 to 10 do begin

m[i, j]:=random (10); / /заполнение матрицы случайными числами и вывод на экран

write (m[i, j]:3);

end;

writeln;

end;

max:=0; min:=100000;

for i:=1 to 10 do begin

for j:=1 to 10 do

if m[i, j]=m[i, j] then k:=k+m[i, j];

if k>max then begin max:=k; x1:=i; end;

if k
k:=0;

end;

writeln (' строка с максимальной суммой ', x1,' ее сумма = ', max);

write (' строка с минимальной суммой ', x2,' ее сумма = ', min); / /вывод ответа

end.