uses crt;

var A : array [1 .. 100, 1 .. 100] of integer;

    i, m, n, j, k : byte; t : integer;

begin

clrscr;

write('m = '); readln(m);

write('n = '); readln(n);

for i := 1 to m do

    begin

        write('Nhap hang thu ', i ,' : ');

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

    end;

for k := 1 to m do

    for j := n downto 2 do 

        for i := 1 to j - 1 do

            if A[k, i] < A[k, i + 1] then 

                begin

                    t := A[k, i];

                    A[k, i] := A[k, i + 1];

                    A[k, i + 1] := t;

                end;

for k := 1 to m do 

    begin

        if k mod 2 = 0 then 

            for i := 1 to n do write(A[k, i],' ')

        else 

            for i := n downto 1 do write(A[k, i],' ');

        writeln;

    end;

readln

end.