Нужна помощь в сортировке массива (Pascal)

[Stilet]

Гораздо проще описать одномерный массив размером в размер строки матрицы и туда тремя циклами переписать из строки данные, выстраивая их:

j:=1;
for i:=0 to n do if a[i,l]<0 then begin b[j]:=a[i,l]; inc(j); end;
for i:=0 to n do if a[i,l]=0 then begin b[j]:=a[i,l]; inc(j); end;
for i:=0 to n do if a[i,l]>0 then begin b[j]:=a[i,l]; inc(j); end;

Делов то.

[Poma][a]

Чейта исходный от 0, а новый с 1?

[Stilet]

Чейта исходный от 0, а новый с 1?

Та так... весна )

[Serge_Bliznykov]

ну, с дополнительным массивом задача становится банальной!

anton_guitar, если нужно обойтись одним массивом, то решение (с небольшим обсуждением) можно посмотреть в этой теме:
http://programmersforum.ru/showthread.php?t=172089

[Poma][a]

Нолики всё же нужно вперед

[Serge_Bliznykov]

Сообщение от Poma][a

Нолики всё же нужно вперед

нолики по условию задачи всё же нужно назад.

[Poma][a]

Разве?

Для примера: 5 -7 -10 0 9, на выходе должны получить -7 -10 5 9 0.

12345567

[newerow1989]

var p:array[1..12,1..10] of integer;
    i,j,k,l,z:integer;
begin
   Randomize;
   For i:=1 to 12 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=-5+Random(11);
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=1 to 12 do
   begin
      l:=1;
      For j:=1 to 10 do
         If p[i,j]<0 then
         begin
            z:=p[i,j];
            For k:=j downto l+1 do
               p[i,k]:=p[i,k-1];
            p[i,l]:=z;
            l:=l+1;
         end;
      l:=1;
      For j:=1 to 10 do
         If p[i,j]>0 then
         begin
            z:=p[i,j];
            For k:=j downto l+1 do
               p[i,k]:=p[i,k-1];
            p[i,l]:=z;
            l:=l+1;
         end;
   end;
   For i:=1 to 12 do
   begin
      For j:=1 to 10 do
         Write(p[i,j],'  ');
      Writeln;
   end;
   Readln;
end.

Сойдет?

[Serge_Bliznykov]

Сообщение от Poma][a

Разве?

Точно так.
осталось выяснить, где, по вашему у массива "зад", а где "перёд"
на мой взгляд, массив выводится слева направо, от меньших индексов к большим, поэтому правее расположены элементы, ближе к концу...



newerow1989, не понял, а зачем Вам матрица (двухмерный массив)?

[newerow1989]

зачем Вам матрица (двухмерный массив)?

Там же написано: В каждой строке

В каждой строке матрицы расположить сначала все отрицательные элементы