Дана последовательность из М чисел. Сколько из этих чисел больше 7, но меньше 20. Найти...

Question

Дана последовательность из М чисел. Сколько из этих чисел больше 7, но меньше 20. Найти произведение таких чисел.

Comments

то есть допустим М=30 . последовательность будет m1...m35. по этой последовательности составить прогу ?

---

Нужно составить программный код по VB. Здесь не нужно обозначать М даже условно.

---

ну тогда нужно узнать полюбому последовательность состоит из скольких элементов, или где хранит последовательность (в массиве, в множестве или в файле input )

---

input

Answer 1

Sub z()
Dim a(10) As Integer
p = 1
s = "Последовательность:"
For i = 1 To 10
    a(i) = Int(Rnd * 50)
    s = s & " " & a(i)
    If a(i) > 7 And a(i) < 20 Then
        p = p * a(i)
        n = n + 1
        End If
Next i
s = s & Chr(13) & "Количество элементов: " & n & Chr(13) & "Их произведение: " & p
MsgBox (s)
End Sub