Получить матрицу по правилу - Turbo Pascal (29512)

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

Получить матрицу: 1 0 ... 0 1 0 1 ... 1 0 ............. 0 1 ... 1 0 1 0 ... 0 1

Решение задачи: «Получить матрицу по правилу»

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

const n=20;
var
  a:array[1..n,1..n] of byte;
  i,j,k:integer;
begin
  repeat
    write('n=');readln(k);
  until k in [1..n];  
  for j:=1 to k do begin
    a[j,j]:=1;
    a[k-j+1,j]:=1;
  end;
  for i:=1 to k do begin
   for j:=1 to k do 
    write(a[i,j]:2);
    writeln;
  end;
end.

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

Переменная n инициализируется значением 20.
Создается массив a типа array[1..n,1..n] of byte.
Определяются три переменные i, j и k типа integer.
Запускается цикл repeat, который продолжается до тех пор, пока значение переменной k не станет равным 1 или больше значения переменной n.
Внутри цикла repeat запрашивается у пользователя значение переменной k.
В цикле for переменной j от 1 до k присваивается значение 1, а переменной a[j,j] присваивается значение 1.
Затем, в цикле for переменной i от 1 до k выполняется следующий блок кода:
- Для каждой переменной j от 1 до k выводится значение a[i,j] в формате 2.
- После этого выводится символ новой строки writeln.
Конец блока кода внутреннего цикла for переменной i.
Конец внешнего цикла repeat.
Конец программы.