Найти произведение всех чисел массива, заполненного случайными числами - VB
Формулировка задачи:
Дан массив из N элементов, сформированный случайным образом из чисел в диапазоне значений от 100 до 2000. Найти произведение всех чисел массива.(Visual Basic)
Решение задачи: «Найти произведение всех чисел массива, заполненного случайными числами»
textual
Листинг программы
Public Sub mas15()
Dim A(10) As Integer, N As Integer, i, P As Long
N = InputBox("Введите кол-во элементов массива <10 ")
P = 1
For i = 1 To N
A(i) = 2000 * Rnd()
MsgBox (A(i))
P = P * A(i)
Next
MsgBox (P)
End Sub