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

[xxSINxx]

Здравствуйте, мне в программе надо в матрице найти максимальный элемент, а если их несколько то вывести сообщение об этом.
Подскажите как осуществить проверку на наличие нескольких макс элементов

[Sazary]

xxSINxx
Сначала находите максимум. Затем проходите по матрице и сравниваете это значение с каждым элементом. Если равны, то увеличиваете счетчик (который сначала равен нулю). После этого, если счетчик >1, то максимумов несколько.

[Serge_Bliznykov]

xxSINxx, а как максимальный найти знаете? :-)
варианта два:
простой — "в лоб" второй раз пройти в цикле по массиву, считая сколько элементов совпадает с найденным при первом проходе максимальным элементом.

второй, намного эффективнее, но сложнее (пишу здесь, как иллюстрация мысли):

MaxM := MinInt;
CountDoubleMax := 0;
for i:=1 to MatrizaSize do
  if M[i]>MaxM then begin
    MaxM := M[i];
    CountDoubleMax := 1;
  end
  else if M[i] = MaxM then Inc(CountDoubleMax);
end;
WriteLn('Максимальное значение ',MaxM:1,' встречается ',CountDoubleMax:1,' раз.');

Добавлено.
Sazary, не успеешь за Вами! Коллега, опять Вы меня опередили! :D

[Sazary]

Serge_Bliznykov, у вас, все-таки, поинтереснее будет )
ps Я тут тоже часто за другими не успеваю )

pps Сорри за офф