Const n=12; m=10;
var a:array[1..n,1..m] of integer;
i,j,k:integer;
begin
k:=0;
for j:=1 to m do
for i:=n downto 1 do
begin
k:=k+1;
a[i,j]:=k;
end;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
Результат:
12 24 36 48 60 72 84 96 108 120
11 23 35 47 59 71 83 95 107 119
10 22 34 46 58 70 82 94 106 118
9 21 33 45 57 69 81 93 105 117
8 20 32 44 56 68 80 92 104 116
7 19 31 43 55 67 79 91 103 115
6 18 30 42 54 66 78 90 102 114
5 17 29 41 53 65 77 89 101 113
4 16 28 40 52 64 76 88 100 112
3 15 27 39 51 63 75 87 99 111
2 14 26 38 50 62 74 86 98 110
1 13 25 37 49 61 73 85 97 109