Pascal. Задача 4-7

Подсчитать количество элементов, равных максимальному в массиве.

Решение

Const
  N = 10;
var
  i, max, quantity : integer;
  A : array[1..N] of integer;
begin
  for i := 1 to N do begin
      write('Введите A[', i, ']: ');
      read(A[i]);
    end;
  max:= A[1];
  quantity := 1;
  for i := 2 to N do
    if A[i] > max then begin
          max:= A[i];
          quantity := 1;
      end
    else 
      if A[i] = max then Inc(quantity);
  writeln('Количество элементов, равных максимальному: ', quantity);
end.