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

Sub z()Dim a(10) As Integerp = 1s = "Последовательность:"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 IfNext is = s & Chr(13) & "Количество элементов: " & n & Chr(13) & "Их произведение: " & pMsgBox (s)End Sub