Question

Муниципальный этап олимпиады по информатике проводился для учеников 7–11-х классов. Все ученики участвовали в общем конкурсе. Каждый участник мог набрать от 0 до 400 баллов. Победителем признаётся участник, набравший наибольшее количество баллов, при условии, что им набрано больше половины возможных баллов (т. е. более 200). Победителей может быть несколько; может и не быть совсем.

Напишите эффективную программу, которая определяет фамилию и имя лучшего участника, не ставшего победителем. Если несколько человек набрали второй по величине результат, или если победителей нет и несколько участников имеют наивысший балл среди не-победителей, выведите количество таких участников.

Входные данные:

Первая строка: число участников $N$ ( $N < 10000$ ).
Следующие $N$ строк: <Фамилия> <Имя> <класс> <баллы>, где фамилия и имя — непробельные строки, класс — число от 7 до 11, баллы — целое число от 0 до 400.

Выходные данные:

Если один участник — его фамилия и имя через пробел.
Если несколько — количество участников.

Пример входа:

3
Иванов Пётр 10 275
Кузнецов Иван 9 180
Петров Сергей 11 150

Пример выхода:

Кузнецов Иван

Accepted Answer

Кузнецов Иван

Answer

Идея решения: отслеживаем максимальный балл (победителей) и второй по величине балл (не-победителей), подсчитывая количество участников с каждым результатом. Алгоритм: 1. Считываем каждую строку и парсим фамилию, имя и баллы, пропуская класс. 2. Если баллы больше текущего максимума, сдвигаем максимум во второй результат и обновляем максимум. 3. Если баллы равны максимуму, увеличиваем счётчик победителей. 4. Если баллы меньше максимума и больше второго результата, обновляем второй результат. 5. Если баллы равны второму результату, увеличиваем его счётчик. 6. В конце выводим фамилию и имя второго результата (если один участник) или количество. ```pascal var n, i, j, spaces, max, next, cnt, points: integer; s, name, lastName, nameNext, lastNameNext: string; nameMax, lastNameMax, cntMax: string; begin max := 0; next := 0; cnt := 1; cntMax := 1; for i := 1 to n do begin readLn(s); spaces := 0; name := ''; lastName := ''; points := 0; for j := 1 to length(s) do begin if s[j] = ' ' then inc(spaces) else begin if spaces = 0 then name := name + s[j]; if spaces = 1 then lastName := lastName + s[j]; if spaces = 3 then points := points * 10 + ord(s[j]) - 48; end; end; if points > max then begin next := max; nameNext := nameMax; lastNameNext := lastNameMax; cnt := cntMax; max := points; nameMax := name; lastNameMax := lastName; cntMax := 1; if max < 201 then begin next := max; nameNext := name; lastNameNext := lastName; cnt := 1; end; end else if (points <> max) and (points > next) then begin next := points; nameNext := name; lastNameNext := lastName; cnt := 1; end else if points = next then cnt := cnt + 1 else if points = max then cntMax := cntMax + 1; end; if cnt = 1 then writeLn(nameNext, ' ', lastNameNext) else writeLn(cnt); end. ``` ---

Задание №19Алгоритмы и исполнителиЕГЭ по информатике