Question

Последовательность состоит из натуральных чисел и завершается числом 0. Всего вводится не более 10000 чисел (не считая завершающего числа 0). Определите, сколько элементов этой последовательности равны ее наибольшему элементу. Числа, следующие за числом 0, считывать не нужно.

Answer 1

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
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 раз(а)