Дана прямоугольная матрица. Найти строку с наибольшей и строку с наименьшей суммой элементов. Вывести на печать найденные строки и суммы их элементов.
Вопрос посетителя
Дана прямоугольная матрица. Найти строку с наибольшей и строку с наименьшей суммой элементов. Вывести на печать найденные строки и суммы их элементов.
Ответ эксперта
Program matrix;
USES Crt;
Var a: array[1..20, 1..20] of integer;
n,S,i,j,k,mins, maxs, mini, maxi, t : integer;
Begin
ClrScr;
Write(‘Vvedite kolichestvo strok n= ‘);
Readln(n);
for i:=1 to n do
for j:=1 to n do
begin
Write(‘a(‘,i,’,’,j,’)= ‘);
Readln(a[i,j]);
end;
clrscr;
Writeln(‘Matrica a’);
for i:=1 to n do
begin
for j:=1 to n do
Write(a[i,j],’ ‘,’ ‘);
Writeln;
end;
mins:=0;
for j:=1 to n do
mins:= mins+a[1,j];{summa v str 1, poka=min}
maxs:= mins;
mini:= 1;
maxi:= 1;
for i:=1 to n do
begin
t:=0;
for j:=1 to n do
t:= t+ a[i,j];
if (t>maxs) then
begin
maxs:= t;
maxi:= i;
end;
if (t
mins:= t;
mini:= i;
end;
end;
writeln (‘Max summ = ‘, maxs, ‘ ctroka ‘, maxi);
for j:=1 to n do
write(a[maxi,j],’ ‘);
writeln;
writeln;
writeln (‘Min summ = ‘, mins, ‘ ctroka ‘, mini);
for j:=1 to n do
write(a[mini,j],’ ‘);
Readln;
end.
