Консультация № 175072
09.12.2009, 18:16
0.00 руб.
0 1 0
Решите пожалуйста задачу: 12. Найти количество максимальных элементов в массиве А ( ).

Обсуждение

Неизвестный
09.12.2009, 19:42
общий
mazila:
видимо Вам нужно что-то вроде такого:
Код:
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

Форма ответа