Вопрос, который вызвал трудности

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

Числа, следующие за числом 0, считывать не нужно.

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

// 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 раз(а)