Начало
Соревнования
1. Соревнование картингистов
Простая задача на технику программирования.
Так как ввод содержит смесь тестовых и числовых данных, при вводе нужно правильно использовать операторы read/readln, чтобы не произошло ошибки ввода-вывода.
var
winname,name:string;
t,sumt,wintime:longint;
n,m,i,j:integer;
begin
readln(n, m);
wintime := 100001;
winner := '';
for i := 1 to n do
begin
readln(name);
sumt := 0;
for j := 1 to m do
begin
read(t);
sumt := sumt + t;
end;
readln;
if (sumt < wintime) then
begin
wintime := sumt;
winname := name;
end;
end;
writeln(winname);
end.
