После очередного этапа чемпионата мира по кольцевым автогонкам на автомобилях с открытыми колесами Формула-А гонщики собрались вместе в кафе, чтобы обсудить полученные результаты. Они вспомнили, что в молодости соревновались не на больших болидах, а на картах – спортивных автомобилях меньших размеров.
Друзья решили выяснить победителя в одной из гонок на картах. Победителем гонки являлся тот гонщик, у которого суммарное время прохождения всех кругов трассы было минимальным.
Поскольку окончательные результаты не сохранились, то каждый из 10ти участников той гонки вспомнил и выписал результаты прохождения каждого из M кругов трассы. К сожалению, по этой информации гонщикам было сложно вычислить победителя той гонки. В связи с этим они по сделать это вас.
Требуется написать программу, которая вычислит победителя гонки на картах, о которой говорили гонщики.
Сделайте для этой задачи блок схему вот само решение:
begin
var (n, m) := ReadlnInteger2;
var (sm, tm):= ('', integer.MaxValue);
for var i := 1 to n do
begin
var s := ReadlnString;
var t := ReadSeqInteger(m).Sum;
ReadlnString;
if t < tm then
(sm, tm) := (s, t)
end;
Write(sm)
end.
130
246
Ответы на вопрос:
Популярно: Информатика
-
dva4evskaja201p08ub413.09.2020 18:43
-
minzilyana23.04.2022 22:28
-
myyyrrr02.07.2022 20:02
-
наст8308.10.2021 18:58
-
olya20051224.04.2023 19:33
-
Maestror26.01.2022 09:49
-
polinafaber25.12.2021 20:38
-
Ellis203428.08.2022 22:39
-
сабинаааа25.07.2022 21:15
-
КирилБадабумшик27.01.2021 05:56