vadimnazarenko
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В метании молота состязается n спортcменов. Каждый из них сделал m бросков. Победителем считается тот спортсмен, у которого сумма результатов по всем броскам максимальна.
Если перенумеровать спортсменов числами от 0 до n-1, а попытки каждого из них – от 0 до m-1, то на вход программа получает массив A[n][m], состоящий из неотрицательных целых чисел. Программа должна определить максимальную сумму чисел в одной строке и вывести на экран эту сумму и номер строки, для которой достигается эта сумма.
Формат входных данных
Программа получает на вход два числа n и m, являющиеся числом строк и столбцов в массиве. Далее во входном потоке идет n строк по m чисел, являющихся элементами массива.
Формат выходных данных
Программа должна вывести 2 числа: сумму и номер строки, для которой эта сумма достигается. Если таких строк несколько, то выводится номер наименьшей из них. Не забудьте, что нумерация строк (спортсменов) начинается с 0.
Пример
Ввод Вывод
4 3
5 6 7
6 6 7
7 6 6
4 3 5 19 1
Вот я написал код, скажите что не так?
var a:array[1..10000,1..10000] of integer;
b:array[1..1000] of integer;
i,j,m,n,z,max:integer;
begin
read(n,m);
for i:=1 to n do
begin
for j:=1 to m do
begin read(a[i,j]); b[i]:=b[i]+a[i,j]; end;
end;
for i:=1 to n do
if b[i]>b[i-1] then begin max:=b[i]; z:=i end;
readln;
write(max,' ',z-1);
readln;
end. |
