Элементы заданного массива B(n) перепишите в новый массив A(n) в обратном порядке — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
CLS
INPUT n
DIM b(n)
FOR i = 1 TO n
b(i) = INT(201 * RND(1) - 100)
PRINT b(i);
NEXT i
PRINT
DIM a(n)
FOR i = 0 TO n - 1
a(i) = b(n - i)
PRINT a(i);
NEXT i

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