Помощь - Поиск - Пользователи - Календарь
Полная версия: состязание-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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.