Сортировка 2D массива змейкой, Отсортировать массив как показано на схеме Опции

[MC-Sergey]

Данн двумерный массив n на m, состоящий из любых целых чисел.
Необходимо отсортировать массив змейкой по возрастанию(убыванию), как показано на рисунке.
Задавать дополнительный массив запрещено.
Голову уже сломал себе

Сообщение отредактировано: MC-Sergey - 21.10.2007 13:50

[klem4]

uses crt;

const
  n = 5;
  m = 3;

type
  TArray = array [1..n, 1..m] of Integer;

procedure Print(const arr: TArray);
var
  i, j: integer;
begin
  for i := 1 to n do begin
    writeln;
    for j := 1 to m do begin
      write(arr[i, j]:4);
    end;
  end;
end;

procedure Create(var arr: TArray);
var
  i, j, value: integer;
begin

   value := 1;

   i := 1;
   j := 1;

   arr[i, j] := value;

   repeat

     if j < m then begin
       inc(j);
       inc(value);
       arr[i, j] := value;
     end else begin
       inc(i);
       inc(value);
       arr[i, j] := value;
     end;

     while (j > 1) and (i < n) do begin
       dec(j);
       inc(i);
       inc(value);
       arr[i, j] := value;
     end;

     if i < n then begin
       inc(i);
       inc(value);
       arr[i, j] := value;
     end else if j < m then begin
       inc(j);
       inc(value);
       arr[i, j] := value;
     end;

     while (i > 1) and (j < m) do begin
       dec(i);
       inc(j);
       inc(value);
       arr[i, j] := value;
     end;

   until (i = n) and (j = m);
end;

var
  arr: TArray;
begin
  clrscr;
  Create(arr);
  Print(arr);
  readln;
end.