Ввести одномерный массив из 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д