Преобразовать массив, заполнив нарастающими произведениями элементов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д