С2 Дан массив из 50 целых чисел. В массиве хранятся баллы, набранные командами на олимпиаде по программированию. Один элемент массива соответствует количеству баллов, набранных одной командой, и имеет значение от 0 до 100 включительно. Необходимо разработать программу, которая по данным массива вычисляет максимальное количество баллов среди команд, показавших зачётный результат, и количество команд с максимальным зачётным количеством очков. Зачётное количество очков 55. Гарантируется, что хотя бы одна команда набрала зачётное количество очков.
Фрагмент программы с объявлением переменных и заполнением массива приведён ниже, но разрешается не использовать часть из описанных переменных.
const n=50;
var a:array [1..n] of integer;
i, max,k:integer;
begin
for i:=1 to n do readln (a[i]);
..............
end.