Есть массив A размерностью m на n. Найти строку с наибольшей суммой элементов

@Nikolay2014 · Регистрация: 17.06.2014

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

Есть массив A размерностью m на n. Найти строку с наибольшей суммой элементов. Массив, номер строки и значение суммы вывести на экран.

@unick12345 · 18.06.2014, 11:10

Delphi

var i,j,m,n,sumst,sum,str:integer;
a:array[1..10,1..10] of integer;
begin
write('m=');
readln(m);
write('n=');
readln(n);
randomize;
sumst:=0;
str:=0;
writeln('masiv:');
for i:=1 to m do
begin
sum:=0;
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
sum:=sum+a[i,j];
end;
if sum>sumst then
begin
sumst:=sum;
str:=i;
end;
writeln;
end;
writeln('stroka ', str);
writeln('suma ', sumst);
readln;
end.

@sahar · 18.06.2014, 12:55

Сообщение от unick12345

var i,j,m,n,sumst,sum,str:integer;
a:array[1..10,1..10] of integer;
begin
write('m=');
readln(m);
write('n=');
readln(n);
randomize;
sumst:=0;
str:=0;
writeln('masiv:');
for i:=1 to m do
begin
sum:=0;
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
sum:=sum+a[i,j];
end;
if sum>sumst then
begin
sumst:=sum;
str:=i;
end;
writeln;
end;
writeln('stroka ', str);
writeln('suma ', sumst);
readln;
end.

Nikolay2014, после того, как вставишь такое в свой код, не забудь нажать Ctrl+D.

@Nikolay2014 0 / 0 / 0 Регистрация: 17.06.2014 Сообщений: 2
		1
	Есть массив A размерностью m на n. Найти строку с наибольшей суммой элементов 18.06.2014, 10:55. Показов 1333. Ответов 2 Метки нет (Все метки) Есть массив A размерностью m на n. Найти строку с наибольшей суммой элементов. Массив, номер строки и значение суммы вывести на экран. 0

@sahar 10 / 10 / 2 Регистрация: 03.01.2013 Сообщений: 73
	18.06.2014, 12:55	3
	Сообщение от unick12345 var i,j,m,n,sumst,sum,str:integer; a:array[1..10,1..10] of integer; begin write('m='); readln(m); write('n='); readln(n); randomize; sumst:=0; str:=0; writeln('masiv:'); for i:=1 to m do begin sum:=0; for j:=1 to n do begin a[i,j]:=random(10); write(a[i,j],' '); sum:=sum+a[i,j]; end; if sum>sumst then begin sumst:=sum; str:=i; end; writeln; end; writeln('stroka ', str); writeln('suma ', sumst); readln; end. Nikolay2014, после того, как вставишь такое в свой код, не забудь нажать Ctrl+D. 0

Есть массив A размерностью m на n. Найти строку с наибольшей суммой элементов

Решение