Преобразовать массив так,что бы с начала располагались все положительные элементы, а потом все остальные

[kola1010]

Усливие: Дан целочисленный массив размера n преобразовать его таким образом,что бы с начало располагались все положительные элементы,а потом все остальные.

[Aleksandr H.]

Вспомогальный массив использовать можно?

[Plague]

порядка n шагов

a:=1;
b:=n;
while abs(b-a)<>1 do
  if m[a]>=0 then a:=a+1 else
    if m[b]<=0 then b:=b-1 else
      begin
        swap(m[a],m[b]);//меняем местами 
        a:=a+1;
        b:=b-1;
      end;