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

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

 

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.