Найти количество четных элементов матрицы - Pascal ABC (12818)

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

2.Найти количество четных элементов матрицы. Закрасить указанные элементы.

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

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

uses crt;
const n=10;
var a:array[1..n,1..n] of byte;
    i,j,k:byte;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=10+random(9);
k:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if a[i,j] mod 2=0 then
     begin
      k:=k+1;
      textbackground(12);
     end
    else textbackground(15);
    write(a[i,j]:3);
   end;
  writeln;
 end;
textbackground(15);
write('Количество четных=',k);
end.

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

В данном коде используется язык программирования Pascal ABC. Код начинается с объявления переменных: n (количество строк в матрице), a (массив для хранения данных), i, j, k (переменные для прохода по матрице). Затем идет цикл, который заполняет матрицу случайными числами от 10 до 19. Далее идет еще один цикл, который проходит по каждой ячейке матрицы. Если значение в ячейке четное (остаток от деления на 2 равен нулю), то увеличивается счетчик k. В конце выводится сообщение с количеством четных элементов.