CLS
INPUT "vvedite razmer massiva"; n
DIM x(n), y(n)
FOR i = 1 TO n
PRINT "vvedite element "; i
INPUT x(i)
NEXT
FOR z = 2 TO 1 STEP -1
FOR i = z TO n STEP 2
j = j + 1
y(j) = x(i)
NEXT
NEXT
PRINT "massiv x"
FOR i = 1 TO n
PRINT x(i);
NEXT
PRINT
PRINT "massiv y"
FOR i = 1 TO n
PRINT y(i);
NEXT
Тестирование выполнено в программе QB64 ( Скачать )