Опять матрица :(, Как заполнить в нужном порядке? Опции

[ksv]

Хелп
дана матрица 8х8:real, заполнить случайными числами не сложно, но нужно заполнить в определенном порядке:
... 17
9 10...15 16
8 7... 2 1
т.е. змейкой, как сделать подскажите плз.

[Сонмор]

Можно сделать с двумя дополнительными массивами

Const n=8;
Var A:array[1..n,1..n] of real;Sum,Temp:Array[1..n]of Real;
    i,j:integer;tmp:Real;
Begin
 For i:= 1 to n do
  For j:=1 to n do
    Sum[i]:=Sum[i]+A[i,j];
 for i:=2 to N do
  for j:=N downto i do
     if Sum[j-1]<Sum[j] then
      begin
       tmp:=Sum[j-1];
       Sum[j-1]:=Sum[j];
       Sum[j]:=tmp;
       Temp:=A[j-1];
       A[j-1]:=A[j];
       A[j]:=Temp;
      end;
End.

Но это лишняя память и время выполнения. Поэтому лучше всё-же сквозной сортировкой.