В массив P записать сначала отрицательные элементы массива X(k), затем положительные.Данные для ввода: k=6, X(3;0;-2;2;4;-3).

Var
   X,P:array[1..100] of integer;
   k,n:integer;
Begin
Write('Введите k: ');ReadLn(k);
Write('Введите массив X(',k,'): ');
For k:= 1 to k do
    Read(X[k]);
Write('Массив P:');
n:=0;
For k:= 1 to k do
    if X[k]<0 then
       Begin
       n:=n+1;
       P[n]:=X[k];
       End;
For k:= 1 to k do
    if X[k]=0 then
       Begin
       n:=n+1;
       P[n]:=X[k];
       End;
For k:= 1 to k do
    if X[k]>0 then
       Begin
       n:=n+1;
       P[n]:=X[k];
       End;
For k:= 1 to k do
    Write(' ',P[k])
End.

Пример:

Введите k: 6
Введите массив X(6):3 0 -2 2 4 -3
Массив P: -2 -3 0 3 2 4