Преобразовать массив, заполнив нарастающими произведениями элементов - 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

Оцени полезность:

5 голосов , оценка 3.6 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы