Программа:
Pascal:
var
arr: array[,] of integer;
n, i, j: integer;
begin
write('n = '); readln(n); // запрос значения n
SetLength(arr, n, n); // установка длины массиву
for i := 0 to n - 1 do // проходимся по элементам двухмерного массива
for j := 0 to n - 1 do
arr[i, j] := i + j; // заполнение согласно условию
writeln(arr); // вывод массива
end.
