Dim A(N) as Integer 'этой строчкой я предполагаю, что массив размерности N известен и каким-то способом заданы значение элементов массива
Dim elMax as Integer 'максимальное значение в массиве
Dim M as Integer 'количество максимальных значений в массиве
If A(1) > A(0) Then 'определяем, какой элемент станет первым максимальным из известных
elMax = A(1)
Else: elMax = A(0)
End If
For i = 2 To N
If A(i)>elMax Then 'сравниваем последующие элементы с максимальным, и если находится больший элемент,
'то обнуляем счетчик и задаем новое значение максимального элемента
'если элемент равнозначный, то плюсуем 1 к счетчику элементов
elMax = A(i)
M = 1
ElseIf A(i)=elMax Then
M = M+1
End if
Next i
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.