В массив 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