М и N – случайные числа от 1 до 10. Сформировать прямоугольную матрицу А(МхN) , в которой натуральные последовательные числа 1. . МхN будут расположены змейкой (см. присоединенный файл).

pascal

var

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

rev: boolean;

a: array[,] of integer;

begin

Write('Введите размер матрицы M и N:'); ReadLn(m, n);

SetLength(a, m, n);

k := 1;

for i := 0 to m - 1 do

begin

if rev then for j := n - 1 downto 0 do

begin

a[i, j] := k; inc(k);

end

else for j := 0 to n - 1 do

begin

a[i, j] := k; inc(k);

end;

rev := not rev;

end;

for i := 0 to m - 1 do

begin

for j := 0 to n - 1 do

Write(a[i, j]:4);

WriteLn;

end;

end.