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

Var   X,P:array[1..100] of integer;   k,n:integer;BeginWrite('Введите 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

//Как я понял, нули переносить не требуется//PascalABC.Net 3.2 сборка 1318begin  var x:=ReadArrInteger(ReadInteger()).Where(y -> y<>0).Sorted.Print;end.