Помогите пожалуйста!Дана последовательность чисел. Выяснить, сколько раз в ней встречается наибольшее число.(Basic)
Ответы
Ответ дал:
0
Sub maxZn()'заполнение массива 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
Sub test() Call maxZnEnd Sub
Приложения:
![](https://st.uroker.com/files/4ed/4ede56744e7a8c6b319a456e32602e22.jpg)
Вас заинтересует
4 месяца назад
1 год назад
1 год назад
2 года назад
7 лет назад