Двумерный массив Опции

[faint]

Здрасти подскажите пожалуйста. В массив(например 10 на 10)нужно заполнить так
1 2 3 4 5 6 7 8 9 10
20 19 18 17 16 15 14 13 12 11
21 и т.д до ста(под 10 должно быть 11)
типа змейкой
У меня токо так получилось

Код

program matrix;
uses crt;
var
M: array [1..10,1..10] of integer;
i,j: integer;
begin
clrscr;
for i:= 1 to 10 do
for j:= 1 to 10 do
if i=1 then M[i,j]:=i*j
else
if i mod 2 = 0 then M[i,j]:=10*i+1-j
else M[i,j]:=10*(i-1)+j;
for i:= 1 to 10 do
begin
for j:= 1 to 10 do
write(M[i,j]:4);
writeln;
end;
readln;
end.

но так заполняется всё время токо с лева направо, а как сделать чтобы заполнялось попорядку 1..100(т.е слева напрово потом с права налево потом опять слева направо и т.д до ста)

Сообщение отредактировано: faint - 20.05.2007 22:13

[Tan]

Если споосб volvo покажется трудным можешь посмотреть мою реализацию :

uses crt;
Const N = 10;
      M = 10;
var      ms : array [1..N,1..M] of integer;
      i,j,k : integer;
begin
Clrscr;
k := 0;
for i := 1 to N do
      If i mod 2 = 0 then
          for j := M downto 1 do
             begin
                 inc (k); ms[i,j] := k;
             end
          else
               for j := 1 to M do
                    begin
                        inc (k); ms[i,j] := k;
                     end;
for i := 1 to N do
 begin
    for j := 1 to M do
    write (ms[i,j]:4);
    writeln;
 end;
readkey;
end.