После единых выпускных экзаменов по информатике в район пришла информация о том,какой ученик, какой школы, сколько набрал баллов.
Районный методист решила выяснить номер школы, ученики которой набрали наибольший средний балл, с точностью до целых.
Программа должна вывести на экран номер такой школы и её средний балл.
Если наибольший средний балл набрало больше одной школы, вывести количество таких школ.
Напишите эффективную, в том числе и по используемой памяти, программу (укажите используемую версию языка программирования), которая должна вывести на экран требуемую информацию.
Также известно, что в районе школ с некоторыми номерами не существует.
На вход программе сначала подается число учеников, сдававших экзамен. В каждой из следующих N строк находится информация об учениках в формате:
<Фамилия><Имя><Номер школы><Количество баллов>
<Фамилия>-строка, состоящая не более чем из 30 символов без пробелов,
<Имя>-строка, состоящая не более чем из 20 символов.
<Номер школы>-число в диапазоне от 1 до 99
<Количество баллов>-число в диапазоне от 1 до 100.
Эти данные записаны через пробел, то есть в каждой строке ровно 3 пробела.
program C4_2;
uses crt;
type massiv=array[1..99] of integer;
var count:massiv; //массив количества учеников,где индекс-номер школы
sumball:massiv; //массив суммы баллов
ch:char;
i,N,nomer,ball,max,nmax:integer;
Begin
for i:=1 to 99 do
begin
count[i]:=0; //обнуляем массивы
sumball[i]:=0;
end;
write('Введите количество учеников: ');readln(n);
for i:=1 to n do
begin
Repeat
read(ch);
Until ch=' '; //фамилия считана
Repeat
read(ch);
Until ch=' ';//Имя
read(nomer);
read(ball);
count[nomer]:=count[nomer]+1; //счетчик количества учеников данной школы
sumball[nomer]:=sumball[nomer]+ball; //сумма баллов
end;
for i:=1 to 99 do
if count[i]>0 then sumball[i]:=round(sumball[i] / count[i]); //вычисляется средний балл
// с точностью до целых
max:=1;
nmax:=1;
for i:=2 to 99 do
if sumball[i]>sumball[max] then //поиск максимального среднего балла
begin
max:=i;
nmax:=1;
end
else if sumball[i]=sumball[max] then inc(nmax);
if nmax=1 then writeln(max,' ',sumball[max])
else writeln(nmax);
End.