Преобразовать массив, заполнив нарастающими произведениями элементов - VB
Формулировка задачи:
Из массива целых случайных чисел X = (x i), где i = {1,2...n},
получить массив Y = {y(m)}, заполнив нарастающими произведениями элементов.
X = { 3, 2, 3, 1, 2, 2} => Y = { 3, 6, 18, 18, 36, 72}
Решение задачи: «Преобразовать массив, заполнив нарастающими произведениями элементов»
textual
Листинг программы
Option Explicit
Private Sub Command1_Click()
Dim X() As Long, Y() As Long, i As Integer, n As Integer
n = InputBox("Введите размер массива Х", "Ввод данных", 10)
ReDim X(1 To n), Y(1 To n)
Me.Cls
For i = 1 To n
X(i) = Int(Rnd * 5 + 1)
Print X(i) & vbTab;
Next i
Y = X
Print
For i = 2 To n
Y(i) = Y(i - 1) * Y(i)
Next i
For i = 1 To n
Print Y(i) & vbTab;
Next i
End Sub