Задача с одномерным массивом Опции

[Cok]

Ввести массив целых чисел из n элементов (задано константой). Переместить все отрицательные элементы в конец массива. Вывести массив на экран.

Решите пожалуйста. Буду признателен. Сам в Паскале чайник.. Кто решит, в долгу не останусь

[Lapp]

Кто решит, в долгу не останусь

Точно не останешься? тогда учи Паскаль - тем и отдашь.. ))

Поскольку про сохранение порядка ничего не сказано, то можно как-то так..

  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);

[Cok]

Спасибо, Андрей) выручил