{* Задача42 *}

REM basic

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


N = 30
Dim a(1 To N) As Integer
Dim max As Integer, k As Integer, i As Integer
For i = 1 To N
INPUT a(i)
Next i
k = 1
max = a(1)
For i = 2 To N
If a(i) > max Then
max = a(i)
k = 1
ElseIf a(i) = max Then
k = k + 1
End If
Next i
PRINT k
End