Заполнить массив Y нарастающими произведениями элементов массива Х- QBasic(Бейсик)

disel
1
2
3 2 3 1 2 2 Х
3 6 18 18 36 72 Y
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
INPUT "vvedite kol-vo chisel ", n
RANDOMIZE TIMER
DIM x(n), y(n)
FOR i = 1 TO n
    x(i) = INT(RND * 5) + 1
NEXT
PRINT "massiv x"
FOR i = 1 TO n
    PRINT x(i);
NEXT
y(0) = 1
FOR i = 1 TO n
    y(i) = y(i - 1) * x(i)
NEXT
PRINT "massiv y"
FOR i = 1 TO n
    PRINT y(i);
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment