Дан массив А (к). Из элементов массива А сформировать массив В таким образом: сначала поместить все отрицательные массивы элемента А, потом равные нулю, а положительные в конце.

В простом варианте:

const nn=50;

var

i, n, j:integer;

a, b:array [1 ... nn] of integer;

begin

write ('Введите количество элементов массива: ') ;

readln (n) ;

for i:=1 to n do readln (a[i]) ;

j:=1;

for i:=1 to n do if a[i]<0 then begin b[j]:=a[i]; j:=j+1; end;

for i:=1 to n do if a[i]=0 then begin b[j]:=a[i]; j:=j+1; end;

for i:=1 to n do if a[i]>0 then begin b[j]:=a[i]; j:=j+1; end;

for i:=1 to n do write (b[i],' ') ;

end.

Program main;

Var A, B: array [1 ... 100] of integer;

k, n, i: byte;

Begin

i:=1;

Readln (n) ;

For k:=1 to n do

Readln (A[k]) ;

For k:=1 to n do

If A[k]<0 then

Begin

B[i]:=A[k];

i:=i+1;

End;

For k:=1 to n do

If A[k]=0 then

Begin

B[i]:=A[k];

i:=i+1;

End;

For k:=1 to n do

If A[k]>0 then

Begin

B[i]:=A[k];

i:=i+1;

End;

For i:=1 to n do

Writeln (B[i]) ;

Readln;

End.