Вывести на экран значения всех элементов массива в обратном порядке

CLS
DIM a(7)
FOR x = 1 TO 7
INPUT a(x)
NEXT x
PRINT "IcxMas"
FOR x = 1 TO 7
PRINT a(x);
NEXT x
PRINT
PRINT "NewMas"
FOR x = 7 TO 1 STEP -1
PRINT a(x);
NEXT x

CLS : RANDOMIZE TIMER: s = 0
INPUT n
DIM a(n)
FOR x = 1 TO n
a(x) = INT(RND(1) * 10 - 3)
NEXT x
PRINT "IcxMas"
FOR x = 1 TO n
PRINT a(x);
NEXT x
PRINT
FOR x = 1 TO n
IF a(x) / 2 = INT(a(x) / 2) THEN s = s + 1 ELSE PRINT a(x);
NEXT x

IF a(x) MOD 2 > 0 THEN PRINT a(x);

CLS
RANDOMIZE TIMER
INPUT "enter n: ", n
DIM a(n)
PRINT "fill the array with random numbers from the range [c, d]"
INPUT "enter c: ", c
INPUT "enter d: ", d
IF c > d THEN SWAP c, d
FOR i = 1 TO n
    a(i) = INT(RND * ABS(d - c + 1)) + c
NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO n
    x = a(i)
    j = i - 1
    WHILE j > 0 AND a(j) > x
        a(j + 1) = a(j)
        j = j - 1
    WEND
    a(j + 1) = x
NEXT
FOR i = 1 TO n
    IF a(i) AND 1 THEN PRINT a(i);
NEXT

IF a(x) / 2 <> INT(a(x) / 2) THEN PRINT a(x);

IF a(x) / 2 = INT(a(x) / 2) THEN s = s + 1 ELSE PRINT a(x);