Подразделы

Другие разделы

Дата и время

29/03/2024 01:24:47

Авторизация

Имя:
Пароль:
Зарегистрироваться
Восстановить пароль
 

print1. Соревнование картингистов

Простая задача на технику программирования.
Так как ввод содержит смесь тестовых и числовых данных, при вводе нужно правильно использовать операторы 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.
loading