Подсчитать количество элементов

[mexx1337]

Подсчитать количество элементов массива , равных max за 1 проход по одномерному массиву.
Переменные: max,nmax,i,n
const n=30


Заранее спасибо!

[Hacker19_90]

Так ещё раз!
За один проход найти максимальный элемент массива и количество равных ему?

[Serge_Bliznykov]

Hacker19_90, именно так!

mexx1337, это же элементарно,
пишете обычный поиск максимального значения.
потом добавляете переменную (пусть это будет CntEquMax типа integer).
перед циклом (там, где Вы иницилизируете переменную Max) присваивайте ей единицу.

потом, в цикле, если очередной элемент массива БОЛЬШЕ Max,
тогда сбрасываете счётчик, если же очередной элемент массива равен Max - увеличиваем счётчик на 1. всё.

CntEquMax := 1;
Max := A[1];
for i:=2 to N do
  if A[i]>Mac then begin
     CntEquMax := 1;
     Max := A[i];
  end
  else
  if A[i]=Max then Inc(CntEquMax);