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

Входные данные

На вход программе сначала подается значение n100 - количество элементов в массиве. В следующей строке входных данных расположены сами элементы массива - целые числа, по модулю не превосходящие 30 000.

Выходные данные

Выдайте количество искомых элементов массива.

Примеры

входные данные

8

4 3 5 2 5 1 3 5

выходные данные

3

Question

Информатика

Афанасий

7 июня, 14:11

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

Входные данные

На вход программе сначала подается значение n100 - количество элементов в массиве. В следующей строке входных данных расположены сами элементы массива - целые числа, по модулю не превосходящие 30 000.

Выходные данные

Выдайте количество искомых элементов массива.

Примеры

входные данные

8

4 3 5 2 5 1 3 5

выходные данные

3

+5

Ответы (1)

Знаете ответ?

Гемуля · 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.