В двумерном массиве вычислить количество четных элементов - Pascal

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

В двумерном массиве вычислить количество четных элементов.

Решение задачи: «В двумерном массиве вычислить количество четных элементов»

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

program qq;
var
   a: array [1..20,1..20] of integer;
   m, n, i, j, k: integer;
begin
   write ('Количество строк массива m = ');
   readln (m);
   write ('Количество столбцов массива n = ');
   readln (n);
   randomize;
   for i:=1 to m do
      begin
         for j:= 1 to n do
            begin
               a[i,j]:=random(20)-5;
               write (a[i,j], '  ');
            end;
         writeln;
      end; 
   k:=0;   
   for i:= 1 to m do
      for j:=1 to n do
         if (a[i,j] mod 2 = 0) then k:=k+1;
   writeln ('Количество четных элементов в массиве: ', k);    
end.

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

Объявляется переменная a как двумерный массив типа integer размером 20 на 20.
Объявляются переменные m, n, i, j, k как целочисленные.
Пользователю предлагается ввести количество строк массива m и количество столбцов массива n.
Генерируются случайные числа для каждого элемента массива a в диапазоне от -5 до 15 включительно.
Выводится элемент массива a[i,j] и пробел после каждого элемента.
При переходе на новую строку выполняется команда writeln для отображения строк элементов.
Устанавливается начальное значение переменной k равное 0.
Дважды вложенный цикл for проходит по каждому элементу массива и если элемент делится на 2 без остатка (является четным), увеличивается значение k на 1.
Выводится сообщение о количестве четных элементов в массиве k.