Найти количество четных элементов матрицы, удовлетворяющих условию - Pascal

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

Дана матрица А(6,6) целых чисел. Найти количество четных элементов, удовлетворяющих условию - 5< аi j < 5.

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

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

program pr;
 
const
  n = 6;
 
var
  a: array [1..n, 1..n] of integer;
  i, cout, j: integer;
 
begin
  cout := 0;
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := random(21) - 10;
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:3);
    writeln;
  end;
  for i := 1 to n do
    for j := 1 to n do
      if (a[i, j] mod 2 = 0) and (a[i, j] > -5) and (a[i, j] < 5) then
        cout := cout + 1;
  writeln('Количество четных элементов, удовлетворяющих условию - 5< а[i,j]< 5: ', cout);
end.

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

Создаётся переменная a - массив размером 6x6, представляющий матрицу целых чисел.
Объявляются переменные i, cout, j - все целочисленные.
Присваивается нулевое значение переменной cout, которая будет хранить количество четных элементов, удовлетворяющих условию.
Запускается цикл для заполнения матрицы случайными числами в диапазоне от -10 до 10.
Проход по матрице для вывода всех элементов.
Двойной цикл для проверки каждого элемента матрицы на соответствие условию: четность и принадлежность диапазону от -5 до 5.
Если условие выполняется, то увеличивается значение переменной cout.
Выводится количество четных элементов, удовлетворяющих условию.