Соревнование лесорубов ограничение времени 1 секунда ограничение памяти 64mb ввод стандартный ввод или input.txt вывод стандартный вывод или output.txt в тридевятом царстве завершился чемпионат лесорубов. правила определения победителя следующие: победителем считается тот лесоруб, который срубил за сутки наибольшее количество деревьев. а если таких лесорубов несколько, то победителем становится тот из них, кто при этом сделал как можно меньше ударов. известно, что ни у каких двух лесорубов нет абсолютно одинакового результата. требуется написать программу, которая принимает на вход список участников, для каждого из которых задано его имя, а также то, сколько деревьев и за какое суммарное количество ударов он срубил, и выводит имя победителя. формат ввода первая строка содержит целое число nn ( 1≤n≤1001≤n≤100) – количество соревнующихся лесорубов. последующие n×2n×2 строк лесорубов. каждый лесоруб задаётся двумя строками: первая содержит имя лесоруба (не более 20 символов, могут встречаться только прописные и строчные буквы латинского алфавита). гарантируется, что никакое имя не встретится дважды. вторая строка содержит два целых числа: pipi ( 0≤pi≤150≤pi≤15) и titi ( 0≤ti≤50000≤ti≤5000) – количество срубленных этим лесорубом деревьев и количество сделанных ударов. обратите внимание, что список лесорубов не обязан быть отсортированным заранее. формат вывода ваша программа должна вывести единственную строку – имя лесоруба-победителя. пример ввод вывод 4 john 10 123 ringo 10 144 george 11 156 paul 11 160 george примечания решением к данной является программа, написанная на одном из представленных в системе языков программирования. программа должна считывать данные со стандартного потока ввода (иначе говоря, «с клавиатуры») и выводить ответ в стандартный вывод (иначе говоря, «на экран»). выводить лишние символы (исключая пробелы и переводы строк) недопустимо, то есть если вместо ответа будет выведен ответ и после него (или перед ним) какое-то лишнее число или строка, то система ответ не зачтёт. перед тем, как отправить написанную вами программу, не забудьте указать язык программирования, на котором она написана. выбор языка осуществляется с меню, расположенного сразу под этим текстом.

Ответы

avfvffg 05.10.2020 13:11

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

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика