Одномерные массивы в Паскале

[Alex20]

Каков алгоритм задачи. Дан массив целых чисел. Записать в этот же массив сначала все отрицательные числа, затем все положительные числа и нули, сохранив порядок их следования.

[val_nnm]

Например отсортируйте массив какимнибуть устойчевым алгоритмом сортировки. Только для сравнения элементов используйте выражение вроде "if ((A[i]>=0) and (A[j]<0)) then ..." вместо обычного "if (A[i]>A[j]) then ... "

[TinMan]

val_nnm, зачем советовать отсортировать, когда явно написано, что нужно сохранить порядок следования?

Alex20, тут можно разными способами. Например, сначала записать все отрицательные в дополнительный массив B. Потом вторым проходом в остаток массива B записать все неотрицательные. А потом просто переприсвоить A:=B.

Второй способ, без дополнительного массива, включает сдвижки кусков.

const
  n= 20;

var
  a: array[1..n] of integer;
  i,j,k,b: integer;

begin
  for i:=1 to n do a[i]:= Random(n)-n div 2;
  for i:=1 to n do Write(a[i]:3);
  Writeln;
  k:= 1;
  for i:=1 to n do
    if a[i]<0 then begin
      b:= a[i];
      for j:=i downto k+1 do a[j]:= a[j-1];
      a[k]:= b;
      inc(k)
    end;
  for i:=1 to n do Write(a[i]:3);
  Readln
end.

Тут сдвижка кусков организована циклом. Более эффективно будет применить move.

[val_nnm]

TinMan во первых я сказал

отсортируйте массив какимнибуть устойчевым алгоритмом сортировки

что подразумевает сохранение исходного порядка равных между собой данных.
Во вторых ваш пример имеет сложность n^2 (как и большенство методов сортировки). Да и похож он на сортировку прямой вставкой. (хотя признаю что использование времени на 1 итерацию у вас лучше чем у прямой вставки т.к. используеться меньше сравнений)
Такчто оба варианта имеют право на существование.

Вот пример для сортировки прямой вставкой

const n= 20;
var
  a: array[1..n] of integer;
  i,j,b: integer;
begin
  Randomize;
  for i:=1 to n do a[i]:= Random(n)-n div 2;
  for i:=1 to n do Write(' ',a[i]:3);
  Writeln;
  for i:=2 to n do
  Begin
    b := A[i];
    j := i - 1;
    while (j > 0) and (A[j]>=0) and (b<0) do Begin
        A[j+1] := A[j];
        j := j - 1;
    end;
    A[j+1] := b;
  end;
  for i:=1 to n do Write(' ',a[i]:3);
  Readln
end.

а вот пример для пузырьковой сортировки

const n= 20;
var
  a: array[1..n] of integer;
  i,j,b: integer;
begin
  Randomize;
  for i:=1 to n do a[i]:= Random(n)-n div 2;
  for i:=1 to n do Write(' ',a[i]:3);
  Writeln;
  for i:=2 to n do
    for j := n downto i do
      if ((A[j-1]>=0) and (A[j]<0)) then Begin
        b := A[j];
        a[j] := a[j-1];
        a[j-1] := b;
      end;
  for i:=1 to n do Write(' ',a[i]:3);
  Readln
end.

оба отлично работают и сохраняют порядок.

[TinMan]

Сообщение от val_nnm

TinMan во первых я сказал ...

Ты сказал то, что сказал )). Вот сказал бы "устойчИвым" - я, глядишь, и понял бы.. Давай, лечи свое "правильнописание", чтоб не хромало )).
И, кстати, +1 тебе.