Заполнить массив по правилу - Free Pascal (316)

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

Заполнить массив A:array[1..10, 1..10] of integer; следующим образом: 1111111...1 5255555...5 1131111...1 ----------- 555555...10

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

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

var
  A : array[1..10, 1..10] of integer;
  i, j, k : integer;
begin
  for i := 1 to 10 do
  begin
    for j := 1 to 10 do
    begin
      if i = j then a[i, j] := i else a[i, j] := 1 + (1 - (i mod 2)) * 4;
      write(a[i, j]:3)
    end;
    writeln;
  end;
end.

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

Объявлены переменные: A, i, j, k (A - массив, i, j, k - счетчики)
Заполнение массива A по правилу: если i = j, то a[i, j] = i, иначе a[i, j] = 1 + (1 - (i mod 2)) * 4
Вывод значения элемента массива a[i, j] на экран с помощью функции write(a[i, j]:3)
Цикл for для прохода по всем элементам массива A (10 строк по 10 столбцов)
В каждой строке цикла for происходит проход по всем столбцам массива A с помощью вложенного цикла for
После вывода всех значений массива A в текущей строке, выводится символ новой строки с помощью функции writeln
В конце программы выводится символ новой строки для завершения работы программы