{* Задача41 *}

REM basic

' Расположить элементы несортированного массива b(N)
' в следующем порядке: нечетные отрицательные, четные отрицательные,
' элементы, равные нулю, четные положительные, нечетные положительные.


CLS

INPUT "Количество элементов", N
Dim B(N)
For i = 1 To N
        INPUT B(i)
Next i
   
For i = 1 To N
  If B(i) < 0 And B(i) / 2  B(i)  2 Then k = k + 1: SWAP B(k), B(i)
Next i

For i = 1 To N
        If B(i) < 0 And B(i) / 2 = B(i)  2 Then k = k + 1: SWAP B(k), B(i)
Next i

For i = 1 To N
        If B(i) = 0 Then k = k + 1: SWAP B(k), B(i)
Next i

For i = 1 To N
        If B(i) > 0 And B(i) / 2 = B(i)  2 Then k = k + 1: SWAP B(k), B(i)
Next i


For i = 1 To N
  If B(i) > 0 And B(i) / 2  B(i)  2 Then k = k + 1: SWAP B(k), B(i)
Next i


For i = 1 To N
        PRINT B(i);
Next i
End