После очередного этапа чемпионата мира по кольцевым автогонкам на автомобилях с открытыми колесами Формула-А гонщики собрались вместе в кафе, чтобы обсудить полученные результаты. Они вспомнили, что в молодости соревновались не на больших болидах, а на картах – спортивных автомобилях меньших размеров.
Друзья решили выяснить победителя в одной из гонок на картах. Победителем гонки являлся тот гонщик, у которого суммарное время прохождения всех кругов трассы было минимальным.
Поскольку окончательные результаты не сохранились, то каждый из 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.

dimabarabanov    3   23.05.2020 20:33    16