Помощь - Поиск - Пользователи - Календарь
Полная версия: состязание-1
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Valentina16
В метании молота состязается 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 Помогите не получается у меня а надо сдавать скоро.
@nto$ka
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
mas: array of array of Cardinal;
i,j,n,m:byte;
memory:byte;
begin
readln(n, m);
setLength(mas, n, m);
for i:=0 to n-1 do
for j:=0 to m-1 do
read(mas[i,j]);

for i:=0 to n-1 do
for j:=1 to m-1 do
inc(mas[i,0], mas[i,j]);
memory:=0;
for i:=1 to n-1 do
if mas[i,0]>mas[memory,0] then
memory:=i;
writeln(mas[memory, 0],' ', memory);
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.