ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПО ИНФОРМАТИКЕ(Двухмерный массив). Заполнить массив следующим...

Question

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПО ИНФОРМАТИКЕ(Двухмерный массив). Заполнить массив следующим образом:
12 24 ... 120
... ... ... ...
2 14 ... 110
1 13 ... 109

Answer 1

Const
    n = 10;
    m = 12;

var
    a: array[1..m, 1..n] of integer;
    i, j: integer;

begin
    for i := 1 to m do
    begin
        for j := 1 to n do
        begin
            a[i, j] := 12 * j - (i - 1);
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
end.