Заполнить двухмерный массив:

12 24 108 120

11 23 107 119

2 14 98 110

1 13 97 109

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