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

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

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

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

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

const m=5; n=10; b=1; c=10;
var
  a, i, j: Integer;
  p, q: set of b..c;
begin
  Randomize; WriteLn('A ='); p:=[b..c];
  for i:=1 to m do begin
    q:=[];
    for j:=1 to n do begin
      a:=b+Random(c-b+1); Write(a:4); Include(q,a);
    end; WriteLn;
    p:=p*q;
  end;
  Write('В каждой строке:');
  if p=[] then Write(' <подходящих нет>')
  else for i:=c downto b do if i in p then Write(' ',i);
  WriteLn;
end.

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

В данном коде объявлены следующие переменные:

m, n, b, c: целые числа, они представляют собой параметры программы.
a, i, j: целые числа, они используются для итерации по матрице.
p, q: множества (set), они используются для хранения чисел из строк матрицы. Код начинается с инициализации переменных m, n, b и c. Затем создается пустое множество p и записывается первая строка матрицы A. Для этого используется цикл for, который проходит по каждому элементу множества b..c и выводит его на экран. Далее идет внутренний цикл for, который проходит по каждой строке матрицы. Для каждой строки создается пустое множество q. Затем внутренний цикл for проходит по каждому элементу множества b..n и добавляет его в множество q. После окончания внутреннего цикла for выводится число a на экран и оно добавляется в множество q. После завершения циклов вычисляется произведение множеств q и p. Если множество p пустое, то выводится сообщение <подходящих нет>. В противном случае выводится сообщение, указывающее на то, какие числа из множества b..c присутствуют в строке. В конце кода выводится сообщение В каждой строке:, за которым следует вывод чисел из строки. Если строка не содержит чисел, то выводится сообщение <подходящих нет>.