{* Задача26 *}

REM basic

' Дан массив а1, а2, …, аn. Расположить элементы несортированного массива a(n) в следующем порядке: нечетные отрицательные, четные отрицательные, элементы равные нулю, четные положительные, нечетные положительные элементы. Новый массив не создавать


CLS
INPUT "Введите число элементов массива"; n
Dim a(n)
For i=1 To n
PRINT "Введите а("; i; ")"
INPUT а(i)
Next i
For i=1 To n
PRINT a(i);
Next i
PRINT  ‘ Перевод курсора на следующую строку
For i=1 To n
If a(i)0 And  a(i)/2 a(i)2 Then  
k=k+1
SWAP a(k), a(i)
End If
Next i
For i=1 To n
PRINT a(i);
Next i
End