заполнить массив размером n x n (n<10) по следующему правилу a (i,j)=I + j

Программа:

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.