Последовательность состоит из натуральных чисел и завершается числом 0. всего вводится не более 10000 чисел (не считая завершающего числа 0). определите, сколько элементов этой последовательности равны ее наибольшему элементу. числа, следующие за числом 0, считывать не нужно.
begin
var n:=ReadInteger; // очередной элемент
var k:=0; // искомое количество
var max:=n;
while n<>0 do begin
if n=max then Inc(k)
else
if n>max then begin max:=n; k:=1 end;
n:=ReadInteger;
end;
Writeln('Число ',max,' встретилось ',k,' раз(а)')
end.
Тестовое решение:
4
6
2
6
1
6
9
3
9
5
2
0
Число 9 встретилось 2 раз(а)