На вход программе подаются сведения о сдаче экзаменов учениками 9-х классов
На вход программе подаются сведения о сдаче экзаменов учениками 9-х классов некоторой средней школы. В первой строке сообщается количество учеников N, которое не меньше 10, но не превосходит 100, каждая из следующих N строк имеет следующий формат:
lt;Фамилияgt; lt;Имяgt; lt;оценкиgt;,
где lt;Фамилияgt; строчка, со100ящая не более чем из 20 знаков, lt;Имяgt; строчка, со100ящая не более чем из 15 символов, lt;оценкиgt; через пробел три целых числа, соответствующие оценкам по пятибалльной системе. lt;Фамилияgt; и lt;Имяgt;, а также lt;Имяgt; и lt;оценкиgt; разделены одним пробелом. Пример входной строки:
Иванов Петр 4 5 3
Нужно написать программу,которая будет выводить на экран фамилии и имена худшего и наихорошего по среднему баллу учеников.
Заблаговременно спасибо за помощь
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadlnInteger;
if not n.InRange(10,100) then begin
Writeln('Ожидалось значение от 10 до 100');
exit
end;
var famh,namh,faml,naml:string;
var (hball,lball):=(-1.0,16.0);
loop n do begin
var a:=ReadlnString.ToWords;
var avg:=(a[2].ToReal+a[3].ToReal+a[4].ToReal)/3;
if avggt;hball then (famh,namh,hball):=(a[0],a[1],avg)
else
if avglt;lball then (faml,naml,lball):=(a[0],a[1],avg)
end;
Writeln;
Println('Наилучший',famh,namh);
Println('Худший',faml,naml)
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.