{* Задача116 *}

REM basic

' Дан целочисленный массив с количеством элементов n. "Сожмите" массив, выбросив из него каждый второй элемент.


INPUT "vvedite kolichestvo elementov ", n
Dim a(n)
For i = 1 To n
INPUT a(i)
Next
PRINT"massiv"
For i = 1 To n
PRINT  a(i);
Next
PRINT
For i=1 To n Step 2
k=k+1
a(k)=a(i)
Next
PRINT"novyj massiv"
For i=1 To k
PRINT a(i);
Next
End