{* Задача11 *}

REM basic

' Записать в начало массива Y положительные, а в конец – отрицательные элементы массива X, сохранив порядок элементов


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