Ввести одномерный массив из 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы