Найти количество максимальных элементов одномерного массива (паскаль)

Question

Найти количество максимальных элементов одномерного массива (паскаль)

Comments

За один проход или за несколько?

---

не написано. думаю что за 1

Answer 1

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,Max,k:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ')
    End;
WriteLn;
k:=0;
Max:=A[1];
For i:= 2 to N do
    if A[i]>Max then
       Begin
       Max:=A[i];
       k:=1;
       End
    else if A[i]=Max then k:=k+1;
WriteLn('Max = ',Max);
WriteLn('Кол-во максимумов: ',k);
End.