Question

Подсчитайте за один проход массива, сколько его элементов равны максимальному элементу. входные данные на вход программе сначала подается значение n100 — количество элементов в массиве. в следующей строке входных данных расположены сами элементы массива — целые числа, по модулю не превосходящие 30 000. выходные данные выдайте количество искомых элементов массива. примеры входные данные 8 4 3 5 2 5 1 3 5 выходные данные 3

Answer 1

Var
A:array[1..100] of integer;
i,M,N,k:integer;
Begin
ReadLn(N);
M:=-30001;
k:=0;
For i:= 1 to N do
    Begin
    Read(A[i]);
    if A[i]>M then
       Begin
       k:=0;
       M:=A[i]
       End;
    if A[i]=M then k:=k+1
    End;
WriteLn(k)
End.