Изменить порядок элементов массива X на обратный и заполнить ими массив Y — QBasic(Бейсик)

disel
1
2
3
например:
X:1 2 3 4 5 6
Y:6 5 4 3 2 1
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
INPUT "vvedite kol-vo elementov ", n
DIM x(n), y(n)
RANDOMIZE TIMER
PRINT "massiv x"
FOR i = 1 TO n
    x(i) = INT(RND * 20)
    PRINT x(i); " ";
NEXT
PRINT
FOR i = n TO 1 STEP -1
    k = k + 1: y(k) = x(i)
NEXT
PRINT "massiv y"
FOR i = 1 TO k
    PRINT y(i); " ";
NEXT

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

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

Leave a Comment