Участвуют n спортсменов в метании молота. Каждый из них делает m бросков. Победителем является спортсмен с наилучшим

Ангелина

33

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

Ниже приведен код на языке Паскаль, который решает данную задачу:

pascal

const

  MaxN = 100; // максимальное количество спортсменов

  MaxM = 100; // максимальное количество попыток



var

  results: array[1..MaxN, 1..MaxM] of Integer; // массив для хранения результатов спортсменов

  n, m, i, j: Integer; // переменные для ввода данных и циклов

  winner, maxSum, currentSum: Integer; // переменные для хранения информации о победителе



// Ввод количества спортсменов и попыток

write("Введите количество спортсменов: ");

readln(n);

write("Введите количество попыток: ");

readln(m);



// Ввод результатов каждого спортсмена

for i := 1 to n do

begin

  writeln("Введите результаты спортсмена ", i, ":");

  for j := 1 to m do

  begin

    write("Результат ", j, ": ");

    readln(results[i, j]);

  end;

end;



// Инициализация переменных для поиска победителя

winner := 1;

maxSum := 0;



// Поиск победителя

for i := 1 to n do

begin

  currentSum := 0;

  for j := 1 to m do

    currentSum := currentSum + results[i, j];

  

  if (currentSum > maxSum) or ((currentSum = maxSum) and (i < winner)) then

  begin

    maxSum := currentSum;

    winner := i;

  end;

end;



// Вывод результата

writeln("Победитель соревнований: спортсмен ", winner);

Данный код позволяет вам ввести количество спортсменов и количество попыток для каждого из них. Затем он запрашивает ввод результатов каждого спортсмена и находит победителя согласно условиям задачи.

Надеюсь, данное решение поможет вам понять, как найти номер победителя в данной задаче.