Определить двух учеников школы, которые лучше всех сдали информатику

@Nastya P · Регистрация: 03.12.2015

Студворк — интернет-сервис помощи студентам

Помогите с решением.

Имеется список учеников разных школ, сдававших экзамен по информатике, с указанием их фамилии, имени, школы и набранного балла. Напишите программу, которая будет определять двух учеников школы № 37, которые лучше всех сдали информатику, и выводить на экран их фамилии и имена.
Если наибольший балл набрали более двух человек, нужно вывести только их количество. Известно, что информатику сдавали не менее 5 учеников школы № 37.
На вход программе в первой строке подается количество учеников списке N. В каждой из последующих N строк находится информация в следующем формате:
<Фамилия> <Имя> <Школа> <Балл>
где <Фамилия> – строка, состоящая не более, чем из 20 символов без пробелов,
<Имя> – строка, состоящая не более, чем из 20 символов без пробелов,
<Школа> – целое число от 1 до 99, <Балл> – целое число от 1 до 100.

Пример входной строки:
Иванов Сергей 50 87
Пример выходных данных, когда найдено два лучших:
Иванов Сергей
Сергеев Иван

@vint-81 · 29.12.2015, 19:27

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
type ych=record
          fam,name:string[20];
          nsch,ball:byte
         end;
var n,i,k,max:byte;
    s:string;
    y,y1,y2:ych;
    err:integer;
begin
    readln(n);max:=0;
    for i:=1 to n do
     begin
      with y do
       begin
        readln(s);s:=s+' ';
        fam:=copy(s,1,pos(' ',s)-1);delete(s,1,pos(' ',s));
        name:=copy(s,1,pos(' ',s)-1);delete(s,1,pos(' ',s));
        nsch:=strtoint(copy(s,1,pos(' ',s)-1));delete(s,1,pos(' ',s));
        ball:=strtoint(copy(s,1,pos(' ',s)-1));
        if nsch=37
         then
          begin
           if ball>max then begin max:=ball;y1:=y;k:=1 end
                       else
                        if y.ball=max
                         then begin y2:=y;inc(k) end
          end
       end
     end;
    if k=1 then writeln(y1.fam,' ',y1.name)
           else
            begin
             if k=2
              then
               begin
                writeln(y1.fam,' ',y1.name);
                writeln(y2.fam,' ',y2.name)
               end
              else writeln(k)
            end
end.

@Nastya P · 03.01.2016, 19:42 **[ТС]**

vint-81, спасибо большое, а как сделать, чтобы двух лучших вывел, а не одного?

Добавлено через 11 минут
vint-81, то есть вывести второй максимум после первого

Добавлено через 1 час 25 минут
vint-81, то есть нужно делать еще один цикл от 1 до максимума, который вы нашли?

@vint-81 · 04.01.2016, 16:11

Сообщение от Nastya P

а как сделать, чтобы двух лучших вывел, а не одного?

не понимаю...
пример приведите...
вот прогон:

Code
1
2
3
4
5
6
7
8
5
Иванов Иван 37 90
Петров Петр 50 90
Сидоров Сидор 37 90
Сидоров Иван 33 100
Петров Иван 20 35
Иванов Иван
Сидоров Сидор

@Nastya P · 04.01.2016, 16:42 **[ТС]**

Например, если будет к примеру так:
5

Иванов Иван 37 90
Петров Петр 50 90
Сидоров Сидор 37 86
Сидоров Иван 37 50
Петров Иван 20 35

То должно вывести в ответ:
Иванов Иван
Сидоров Сидор

То есть у Сидорова Сидора второй по максимуму балл

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Nastya P 0 / 0 / 0 Регистрация: 03.12.2015 Сообщений: 8

	Определить двух учеников школы, которые лучше всех сдали информатику 29.12.2015, 16:20. Показов 4524. Ответов 4 Метки нет (Все метки) Помогите с решением. Имеется список учеников разных школ, сдававших экзамен по информатике, с указанием их фамилии, имени, школы и набранного балла. Напишите программу, которая будет определять двух учеников школы № 37, которые лучше всех сдали информатику, и выводить на экран их фамилии и имена. Если наибольший балл набрали более двух человек, нужно вывести только их количество. Известно, что информатику сдавали не менее 5 учеников школы № 37. На вход программе в первой строке подается количество учеников списке N. В каждой из последующих N строк находится информация в следующем формате: <Фамилия> <Имя> <Школа> <Балл> где <Фамилия> – строка, состоящая не более, чем из 20 символов без пробелов, <Имя> – строка, состоящая не более, чем из 20 символов без пробелов, <Школа> – целое число от 1 до 99, <Балл> – целое число от 1 до 100. Пример входной строки: Иванов Сергей 50 87 Пример выходных данных, когда найдено два лучших: Иванов Сергей Сергеев Иван 0

@Nastya P 0 / 0 / 0 Регистрация: 03.12.2015 Сообщений: 8
	03.01.2016, 19:42 [ТС]
	vint-81, спасибо большое, а как сделать, чтобы двух лучших вывел, а не одного? Добавлено через 11 минут vint-81, то есть вывести второй максимум после первого Добавлено через 1 час 25 минут vint-81, то есть нужно делать еще один цикл от 1 до максимума, который вы нашли? 0

@Nastya P 0 / 0 / 0 Регистрация: 03.12.2015 Сообщений: 8
	04.01.2016, 16:42 [ТС]
	Например, если будет к примеру так: 5 Иванов Иван 37 90 Петров Петр 50 90 Сидоров Сидор 37 86 Сидоров Иван 37 50 Петров Иван 20 35 То должно вывести в ответ: Иванов Иван Сидоров Сидор То есть у Сидорова Сидора второй по максимуму балл 0