Ввести одномерный массив из 12 чисел, в диапазоне от -50 до 50. Из них найти произведение чисел от 5-10 - VB
Формулировка задачи:
Ввести одномерный массив из 12 чисел, в диапазоне от -50 до 50. Из них найти произведение чисел от 5-10.
Решение задачи: «Ввести одномерный массив из 12 чисел, в диапазоне от -50 до 50. Из них найти произведение чисел от 5-10»
textual
Листинг программы
Private Sub Command1_Click()
Dim mas(11)
mult# = 1
For i = 0 To 11
'ñëó÷Г*Г©Г*ûìè Г·ГЁГ±Г«Г*ìè
mas(i) = Int(Rnd() * 101 - 50)
'ââîä Г± ГЄГ«Г*ГўГ»
'Do
' mas(i) = InputBox("Ââåäèòå " & i & " ýëåìåГ*ГІ [-50;50]")
'Loop Until mas(i) >= -50 And mas(i) <= 50
'------------------
If mas(i) >= 5 And mas(i) <= 10 Then mult = mult * mas(i)
Next
MsgBox mult
End Sub