Найти строку матрицы с наибольшей и наименьшей суммой элементов

@Р.В.В · Регистрация: 13.09.2010

Студворк — интернет-сервис помощи студентам

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

@pryda · 27.10.2010, 23:58

Pascal

var a:array[1..3,1..7]of integer;
    b:array[1..3]of integer;
    i,j,s,imin,imax,max,min:integer;
begin
for i:=1 to 3 do
for j:=1 to 7 do
read(a[i,j]);
for i:=1 to 3 do
begin
     s:=0;
     for j:=1 to 7 do
     s:=s+a[i,j];
     b[i]:=s;
end;
max:=b[1]; imax:=1;
for i:=1 to 3 do
if b[i]>max then
begin
     max:=b[i];
     imax:=i;
end;
min:=b[1]; imin:=1;
for i:=1 to 3 do
if b[i]<min then
begin
     min:=b[i];
     imin:=i;
end;
write('Строка с наибольшей суммой элементов: ');
for j:=1 to 7 do
write(a[imax,j],' ');
writeln('Сумма элементов: ',max);
write('Строка с наименьшей суммой элементов: ');
for j:=1 to 7 do
write(a[imin,j],' ');
writeln('Сумма элементов: ',min);
end.

@Р.В.В 0 / 0 / 0 Регистрация: 13.09.2010 Сообщений: 6
		1
	Найти строку матрицы с наибольшей и наименьшей суммой элементов 27.10.2010, 23:45. Показов 2071. Ответов 1 Метки нет (Все метки) Дана прямоугольная матрица.Найти строку с наибольшей и наименьшей суммы элементов.вывести на печать найденные строки и суммы их элементов . 0

Опции темы

Найти строку матрицы с наибольшей и наименьшей суммой элементов

Решение