Дан массив из десяти целых чисел.Определите,сколько элементов этого массива имеют максимальное значение ( Паскаль )

[Diana93]

Дан массив из десяти целых чисел.Определите,сколько элементов этого массива имеют максимальное значение

[ZX Spectrum-128]

Первым проходом по массиву найти максимум. Задача элементарная, решение можно найти, воспользовавшись поиском по форуму. И вторым проходом, сравнивая элементы массива с найденным максимумом, найти искомое количество.

[Serge_Bliznykov]

И вторым проходом, сравнивая элементы массива с найденным максимумом

строго говоря, несложно и одним проходом решить данную задачу.

вот так примерно:

Max := A[1];
CountMax := 1;
for i:=2 to 10 do
  if A[i]>Max then begin
        Max := A[i];
        CountMax := 1;
  end
  else
    if A[i]=Max then  CountMax := CountMax + 1;

всё, в Max максимальное значение, CountMax - количество элементов массива, которое имеет значение, равное Max...

[ZX Spectrum-128]

ЗдОрово! Классное решение.
Для меня оптимизация кода никогда сильной стороной не являлась