{* Задача405 *}

REM basic

' Выполнить действия над массивами. В таблице при формулировании задания для разъяснения его сути справа отображены примеры исходных Х и результирующих Y массивов с конкретными числами. Программа, естественно, должна обрабатывать любые числа для векторов размерностью N. Программа должна предъявлять исходные и новые массивы. Занести из Х в Y сначала элементы, находившиеся на четных местах в Х, а затем – на нечетных.


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
End