{* Задача10 *}

REM basic

' Записать в массив Y элементы массива X, имеющие четные индексы, а в массив Z элементы, имеющие нечетные индексы;


10 INPUT N 
20 Dim X(N), Y(INT(N/2)), Z(INT(N/2)+1) 
30 K=0 
35 L=0 
40 For I=1 To N 
50 INPUT X(I) 
70 If I/2=INT(I/2) Then K=K+1 : Y(K)=X(I) 
     Else L=L+1: Z(L)=X(I) 
80 Next I 
90 For I=1 To K 
100 PRINT Y(I) 
110 Next I 
120 For I=1 To L 
130 PRINT Z(I) 
140 Next I 
150 End