По массиву А составить массив В, где все отрицательные числа расположены раньше всех положительных.

Uses CRT;

Const N = 20;

Var A,B:Array[1..N] Of Integer;

I,J : Integer;

BEGIN

ClrScr;

Randomize;

For I := 1 To N Do A[I] := Random(15)-2;

For I := 1 To N Do B[I] := 0;

WriteLn('All elements of array A:');

For I := 1 To N Do Write(A[I]:3);

J := 1;

For I := 1 To N Do

Begin

If A[I] < 0 Then

Begin

B[J] := A[I];

Inc(J);

End;

End;

For I := 1 To N Do

Begin

If A[I] >= 0 Then

Begin

B[J] := A[I];

Inc(J);

End;

End;

WriteLn;

WriteLn('Result array B:');

For I := 1 To N Do Write(B[I]:3);

END.