СДАМ ГИА: РЕШУ ЕГЭ
Образовательный портал для подготовки к экзаменам
Информатика
≡ информатика
сайты - меню - вход - новости




Задания
Версия для печати и копирования в MS Word
Задание 27 № 3142

На вход программы подаются сведения о набранных на ЕГЭ баллах учениками данной школы по трём предметам. В первой строке сообщается количество учащихся N, каждая из следующих N строк имеет формат: < Фамилия > < Инициалы > < БаллыПоРусскомуЯзыку > <БаллыПоМа- тематике> <БаллыПоИнформатике>, где < Фамилия > — строка, состоящая не более чем из 20 символов, < Инициалы > — строка, состоящая из 4-х символов (буква, точка, буква, точка), <БаплыПоРусскому Языку^ <БаллыПоМатематике>, <БаллыПоИнформатике> — целые числа в диапазоне от 0 до 100. Все элементы одной строки отделены друг от друга пробелом. Пример входной строки: Петров С.Н. 78 82 70

Требуется написать как можно более эффективную программу (укажите используемую версию языка программирования, например, Borland Pascal 7.0), которая будет выводить на экран фамилии и инициалы учеников, набравших максимальную сумму баллов по трём предметам (таких учеников может быть несколько), а также набранную ими сумму баллов.

Следует учитывать, что N < 100.

Решение.

var fio : array[1..100] of string;

bs : array[1..100] of integer;

max,N,i,k,b : integer; с : char;

begin

readln(N);

max:=0;

for i:=1 to N do begin fio[i]:=' ';

for k:=1 to 2 do

repeat read(c);

fio[i]:=fio[i]+c;

until c=' ';

read(bs[i]);

for k:=1 to 3 do

begin

read(b);

bs[i]:=bs[i]+b;

end;

readln;

if bs[i]>max then max:=bs[i];

end;

for i:=1 to N do

if bs[i]=mах then writeln(fio[i] ,max);

end.