Сортировка

[ilnar51]

Задан одномерный массив из N чисел.Переставить элементы массива так,чтобы отрицательные элементы предшествовали всем неотрицательным

[Stilet]

Например:

var k,tmp:integer;a:array[1..10] of integer;
begin
 k:=1;
 for i:=1 to 10 do begin
  a[i]:=random(20)-20;write(a[i]:5);
  if a[i]<0 then begin tmp:=a[i];a[i]:=a[k];a[k]:=tmp;inc(k);end;
 end; writeln;
 for i:=1 to 10 do write(a[i]:5); readln;
end.

С потолка. Правда код не совершенен, но попробовать его в деле ничего не мешает.
P.S. Кстати, причем тут сортировка то?