Question

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

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

function MaxCnt(Self:sequence of integer):integer; extensionmethod;
begin
  var (max,k):=(integer.MinValue,1);
  foreach var v in Self do
    if v>max then (max,k):=(v,1)
    else if v=max then k+=1;
  Result:=k    
end;

begin
  ReadSeqIntegerWhile(t->t<>0).MaxCnt.Println;
end.

Пример:
12 15 61 8 7 8 20 20 5 51 54 61 30 61 0 78 94 94 94 94 94
3 

Answer 2

Вы можете решить эту задачу, используя PascalABC, следующим образом:

pascalCopy code
program MaxElementCount;
var
  input, maxElement, count, maxCount: integer;
begin
  maxCount := 0; // Инициализируем счетчик максимального элемента
  read(input);   // Считываем первое число
  
  // Пока введенное число не равно 0
  while input <> 0 do
  begin
    // Если введенное число больше максимального элемента, обновляем максимальный элемент и сбрасываем счетчик
    if input > maxElement then
    begin
      maxElement := input;
      maxCount := 1;
    end
    // Если введенное число равно текущему максимальному элементу, увеличиваем счетчик
    else if input = maxElement then
    begin
      maxCount := maxCount + 1;
    end;
    
    // Считываем следующее число
    read(input);
  end;
  
  // Выводим количество вхождений максимального элемента
  writeln('Количество вхождений максимального элемента: ', maxCount);
end.

Эта программа сначала инициализирует переменные, затем считывает последовательность чисел, подсчитывая количество вхождений максимального элемента. Как только введен ноль, программа завершает выполнение и выводит результат.