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

[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 18:13