Помогите пожалуйста! Дана последовательность чисел. Выяснить, сколько раз в ней...

Question

Помогите пожалуйста! Дана последовательность чисел. Выяснить, сколько раз в ней встречается наибольшее число.(Basic)

Comments

Последовательность чем заканчивается? Или количество элементов заранее задаётся?

Answer 1

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

---