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

[Dimon-fx]

Program name;
uses crt;
const n=3;
var g:array[1..n,1..n] of integer;
i,j,a,na,k:integer;
begin
clrscr;

        for i:=1 to n do
        for j:=1 to n do
        read(g[i,j]);
writeln;

writeln('Vhodnaya matruca:');

                     for i:=1 to n do begin
                     for j:=1 to n do write(g[i,j]:3);
                     writeln;
                     end;



   for i:=1 to n do

   for j:=2 to n do begin
            
                a:=g[i,j];
                na:=1;

   while a>g[i,na] do inc(na);

   for k:=j-1 downto na do g[i,k+1]:=g[i,k];

                g[i,na]:=a;
end;



writeln('Vuhodnaya matrica:');

                     for i:=1 to n do begin
                     for j:=1 to n do write(g[i,j]:3);
                     writeln;
                     end;
                     readkey;
end.

Помогите просортировать матрицу. Только чтоб сортировка была с +числами. Отрицательные оставались на месте.

Сообщение отредактировано: Dimon-fx - 26.12.2006 22:54