PascalABCВводится последовательность целых чисел, не превосходящих по модулю 10000. Ноль - признак конца. Вывести, сколько раз в этой последовательности встречается максимальный элемент.

Предыдущий
вопрос Следующий
вопрос

program MaxFrequency;
var
num, max, countMax: integer;
begin
read(num);
max := num;
countMax := 1;
while num <> 0 do
begin
read(num);
if num > max then
begin
max := num;
countMax := 1;
end
else if num = max then
begin
countMax := countMax + 1;
end;
end;
writeln(countMax);
end.