Выведите на экран все числа в порядке убывания, которые присутствуют в каждой из диагоналей матрицы - Turbo Pascal

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

Написать программу с подпрограммами. Пусть задана матрица размером 3х3. Элементы матрицы находятся в диапазоне от 1 до 10. Выведите на экран все числа в порядке убывания, которые присутствуют в каждой из диагоналей

Решение задачи: «Выведите на экран все числа в порядке убывания, которые присутствуют в каждой из диагоналей матрицы»

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

const n=3; b=1; c=10;
var
  a, i, j: Integer;
  m: set of b..c;
begin
  Randomize; WriteLn('A =');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a:=b+Random(c-b+1); Write(a:4);
      if (i=j) or (i=n-j+1) then Include(m,a);
    end; WriteLn;
  end;
  Write('На диагоналях числа:');
  for i:=c downto b do if i in m then Write(' ',i); WriteLn;
end.

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

В данном коде используется язык программирования Turbo Pascal. Он содержит следующие переменные:

n - целочисленная переменная, значение которой равно 3. Она используется для определения размера массива.
b - целочисленная переменная, значение которой равно 1. Она используется для определения минимального значения в массиве.
c - целочисленная переменная, значение которой равно 10. Она используется для определения максимального значения в массиве.
a, i, j - целочисленные переменные. Они используются для обхода массива и вывода чисел на экран.
m - множество (set), которое используется для хранения чисел, присутствующих в матрице. Код начинается с определения переменных и установки начального значения для переменной Randomize. Затем происходит вывод строки A =, после чего начинается цикл, который обходит каждую диагональ матрицы. Внутри этого цикла происходит генерация случайного числа в диапазоне от b до c-b+1 и вывод его на экран. Если число находится на диагонали матрицы (т.е. i равно j или i равно n-j+1), то оно добавляется в множество m. После завершения цикла для каждой диагонали выводится строка На диагоналях числа:. Затем происходит вывод строки На диагоналях числа:, и для каждой диагонали проверяется, содержит ли множество m числа. Если число присутствует в m, то оно выводится на экран, если нет - то пропускается. В конце кода выводится строка На диагоналях числа:, чтобы показать, что все числа были выведены.