{* Задача63 *}

REM basic

' Поменять местами четные и нечетные элементы вектора V(N), где N - четное число


CLS
INPUT "Введите четное число N ", N
Dim V(N)
        PRINT "Исходный вектор"
For i = 1 To N
        V(i) = i
        PRINT V(i);
Next i: PRINT
           
For i = 1 To N - 1 Step 2
        SWAP V(i), V(i + 1)
Next i
       
        PRINT "Измененный вектор"
For i = 1 To N
        PRINT V(i);
Next i

End