Заполнить двумерный массив по правилу - Turbo Pascal (35293)

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

1. Заполните двумерный массив размерности n × n следующим образом: 1 0 3 0 5 … 1 0 3 0 5 … 1 0 3 0 5 … 1 0 3 0 5 … 1 0 3 0 5 … … … … … … … Выведите результат на экран.

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

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

var
  a: array[1..20,1..20] of integer;
  n,i,j: integer;
begin
  write('Введите размер массива n: ');
  readln(n);
  writeln('Массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if odd(j) then a[i,j]:=j
        else a[i,j]:=0;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.

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

Создается переменная a типа array[1..20,1..20] of integer. Это двумерный массив размером 20x20, который будет использоваться для хранения целых чисел.
Задаются три переменные n, i и j типа integer. Они будут использоваться для итерации по массиву.
Выводится сообщение Введите размер массива n: для ввода размера массива.
Выводится сообщение Массив: для вывода начального состояния массива.
Используется цикл for для итерации по каждому элементу массива.
Внутри первого цикла for используется второй цикл for для итерации по каждому элементу второго измерения массива.
Внутри второго цикла проверяется, является ли индекс текущего элемента четным или нечетным.
Если индекс четный, то присваивается значение текущего элемента массиву.
Если индекс нечетный, то присваивается значение 0.
Выводится значение текущего элемента массива с помощью функции write().
Выводится символ новой строки с помощью функции writeln().
Повторяются шаги 7-10 для каждого элемента второго измерения массива.
После окончания второго цикла for выводится символ новой строки с помощью функции writeln().
Заканчивается внешний цикл for.
Выводится сообщение readln() для чтения последнего введенного значения.
Программа завершается.