Заполнить двухмерный массив чисел единицами - Turbo Pascal

Формулировка задачи:

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

Решение задачи: «Заполнить двухмерный массив чисел единицами»

Листинг программы

const
  n = 6;
  m = 7;
var
  z : array [1..n, 1..m] of integer;
  i, j : integer;  
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      z[i,j] := 1;
      write(z[i,j]:4)      
    end;
    writeln
  end;  
  readln
end.

Объяснение кода листинга программы

В данном коде объявлены две переменные n и m, которые представляют собой количество строк и столбцов в двумерном массиве соответственно. Затем объявлен сам массив z, который представляет собой двумерный массив целых чисел размером n на m. Далее идет цикл for, который выполняется n раз. Внутри этого цикла также идет вложенный цикл for, который выполняется m раз. Внутри вложенного цикла значение элемента массива z[i,j] присваивается единице и выводится на экран с помощью функции write. После окончания внутреннего цикла выводится символ новой строки с помощью функции writeln. В конце программы предлагается ввести данные, но это не является обязательной частью кода.