Question

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

Answer 1

Var n,pi,ti,max,min,i:integer;
name,m_name:string;
begin
readln(n);
max:=0; min:=5000;
for i:=1 to n do
 begin
 readln(name);
 readln(pi,ti);
 if pi>max
  then begin m_name:=name; max:=pi; min:=ti; end
  else if pi=max 
         then if ti<min then begin m_name:=name; max:=pi; min:=ti; end;
 end;
writeln(m_name);
end.

Пример:
4
John
10 123
Ringo
10 144
George
11 156
Paul
11 160
George