Матрицы.

[AL1990]

Дана матрица размера M × N. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер, а также значение наибольшей суммы.

[mss]

Приступай.

[Niro]

Некрасиво это, AL1990. Пришли, выложили задание и даже не написали мол, помогите мне...
По делу - вам в поиск, сто раз уже такие или почти такие задачи были, но если вдруг хотите, могу алгоритм подкинуть (словесный)

[AL1990]

Ну извини просто в правилах написано не писать помогите,спасите,help.вот я и решил просто текст задачи написать.я первый раз вообще на подобном форуме.просто на самом деле очень необходима помощь.можете помочь помогите.не можете не нужно вообще ничего писать.я не спорить сюда пришёл.

[mss]

> я не спорить сюда пришёл

За халявой ты пришел.
Сам-то трудиться не желаешь - не царское это дело)

[veniside]

незачто

[AL1990]

Mss те чё заняться нечем я же попросил если не хочешь или не можешь помочь проходи мимо занимайся своими делами.А тебе veniside спасибо огромное за помощь.очень помог.

[AL1990]

ребят а как сделать,чтобы программа ещё и номер строки с макс. суммой выводила?а то сумму-то она выводит,а вот номер строки не меняется.

[mss]

> AL1990
Это по-русски называется "Дал говна ? Давай и ложку !".
Борзометр у тебя не зашкаливает ?)

[D1em]

может так?

program matrix;
uses crt;
const N = 100; M = 100;
var
A:array[0..N - 1, 0..M-1] of integer;
max,sum: integer;
maxindex,i,j: integer;
begin
clrscr;
Randomize;
for i:=0 to N-1 do
for j:=0 to M-1 do
A[i,j]:=Random(1000);
max:=A[0,0];
maxindex:=0;
for i:=0 to N-1 do begin
sum:=A[i,0];
for j:=1 to M-1 do
sum:=sum+A[i,j];

if (max<sum) then begin
max:=sum;
begin
end;
end;
end;
maxindex:=maxindex+A[i,0]; {<=============эту изменил но не уверен}
writeln('Max row index=',maxindex,';max sum',max);
readln;
end.