В матрице 3*4 найти произведение элементов кратных 3 и 9 - Pascal

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

в матрице 3*4 найти произведение элементов кратных 3 и 9

Решение задачи: «В матрице 3*4 найти произведение элементов кратных 3 и 9»

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

type
  mas = array [1..3, 1..4] of integer;
 
var
  a: mas;
  i, j, p: integer;
 
begin
  randomize;
  p := 1;
  for i := 1 to 3
    do 
    for j := 1 to 4
    do 
    begin
      A[i, j] := random(256);
      if (A[i, j] mod 3 = 0) or (A[i, j] mod 9 = 0)
        then p *= A[i, j];
    end;
  writeln(p);
end.

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

Объявление переменных:
- mas - массив размером 3x4 для хранения целых чисел.
- a - переменная для хранения матрицы.
- i, j, p - переменные для использования в циклах и для хранения произведения элементов, удовлетворяющих условию.
Генерация случайных чисел:
- Генерация случайных чисел от 0 до 255 и сохранение их в элементах матрицы a.
Поиск произведения элементов, удовлетворяющих условию:
- Вложенные циклы используются для итерации по всем элементам матрицы a.
- Проверка каждого элемента матрицы на кратность 3 или 9 с помощью оператора mod.
- Если элемент матрицы кратен 3 или 9, то значение этого элемента добавляется в переменную p с помощью оператора *= (аналог p = p * A[i, j]).
Вывод результата:
- Вывод произведения найденных элементов, удовлетворяющих условию, с помощью оператора writeln.