Ввести массив целых чисел из n элементов (задано константой). Переместить все отрицательные элементы в конец массива. Вывести массив на экран.
Решите пожалуйста. Буду признателен. Сам в Паскале чайник.. Кто решит, в долгу не останусь
for i:=1 to n do Write(a[i]:3);
WriteLn;
i:=1;
j:=n;
while i<j do begin
if a[i]<0 then begin
while (j>i)and(a[j]<0) do Dec(j);
b:=a[i];
a[i]:=a[j];
a[j]:=b;
Dec(j)
end;
Inc(i)
end;
for i:=1 to n do Write(a[i]:3);