Информатика (Вариант 5)
После единых выпускных экзаменов по информатике в район пришла информация о том,какой ученик, какой школы, сколько набрал баллов.
Районный методист решила выяснить номер школы, ученики которой набрали наибольший средний балл, с точностью до целых.
Программа должна вывести на экран номер такой школы и её средний балл.
Если наибольший средний балл набрало больше одной школы, вывести количество таких школ.
Напишите эффективную, в том числе и по используемой памяти, программу (укажите используемую версию языка программирования), которая должна вывести на экран требуемую информацию.
Также известно, что в районе школ с некоторыми номерами не существует.
На вход программе сначала подается число учеников, сдававших экзамен. В каждой из следующих 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.
Задание 1.
а) ≥14. При количестве камней в куче от 14 и больше Паше необходимо увеличить количество камней в пять раз, тем самым получив 70 или более камней.
б) 13. Паша своим первым ходом может сделать 14, 17 или 65 камней, после этого Вася увеличивает количество камней в пять раз, получая 70, 85 или 325 камней в куче.
Задание 2.
9, 12. Для данных случаев Паше необходимо прибавить 4 камня к куче из 9 камней, либо 1 камень к куче из 12 камней, и получить кучу из 13 камней. После чего игра сводится к стратегии, описанной в пункте 1б.
Задание 3.
8. Своим первым ходом Паша может сделать количество камней в куче 9, 12 или 40. Если Паша делает ход «увеличить в пять раз», тогда Вася выигрывает своим первым ходом, увеличивая количество камней в пять раз.
Для случая 9 и 12 камней Вася использует стратегию, указанную в п.2.
Данную стратегию можно представить в виде таблицы.
ИЛИ
11. Своим первым ходом Паша может сделать 12, 15 или 55 камней. Если количество камней в куче 15 или 55 Васе необходимо увеличить количество камней в 5 раз. Для случая 12 камней Вася использует стратегию, указанную в п.2. Представим стратегию в виде таблицы.