'заполнение массива Dim mas(20) S = "" Randomize For i = 1 To 20 mas(i) = Round(Rnd(100) * 100) S = S + Str(mas(i)) + "," Next i
'поиск максимального числа и количества его повторений qty = 1 max = mas(1) 'предполагаем, что максимальное число в первом элементе массива
For i = 2 To 20
If mas(i) = max Then qty = qty + 1 End If
If mas(i) > max Then max = mas(i) qty = 1 End If Next i MsgBox "последовательность чисел " + S MsgBox "максимальное число " + Str(max) + "число повторений " + Str(qty) End Sub
'заполнение массива
Dim mas(20)
S = ""
Randomize
For i = 1 To 20
mas(i) = Round(Rnd(100) * 100)
S = S + Str(mas(i)) + ","
Next i
'поиск максимального числа и количества его повторений
qty = 1
max = mas(1) 'предполагаем, что максимальное число в первом элементе массива
For i = 2 To 20
If mas(i) = max Then
qty = qty + 1
End If
If mas(i) > max Then
max = mas(i)
qty = 1
End If
Next i
MsgBox "последовательность чисел " + S
MsgBox "максимальное число " + Str(max) + "число повторений " + Str(qty)
End Sub
Sub test()
Call maxZnEnd
Sub