Найти сумму всех четных элементов двумерного массива целых чисел А[10,10] - Pascal

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

Ребята помогите пожалуйста написать программу на Паскале) Найти сумму всех четных элементов двумерного массива целых чисел А[10,10].Массив должен вводится во время работы программы. Заранее Большое Спасибо))

Решение задачи: «Найти сумму всех четных элементов двумерного массива целых чисел А[10,10]»

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

var
   a : array[1..10, 1..10] of integer;
   i,j,sum : integer;
begin
writeln('Введите матрицу построчно');
sum:=0;
   for i:=1 to 10 do                //в цикле с параметром для строк
     for j:=1 to 10 do              //в цикле с параметром для столбцов
     begin
        read(a[i,j]);               //считываю элементы матрицы
        if (a[i,j] mod 2) = 0 then  //если четные
           sum := sum+a[i,j];       //суммарую
     end;
  writeln('Сумма четных элементов=',sum);
end.

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

Создается переменная a типа array[1..10, 1..10] of integer, которая представляет собой двумерный массив целых чисел размером 10x10.
Создаются три переменные i, j и sum типа integer, которые будут использоваться для итерации по массиву и суммирования четных элементов.
Выводится сообщение «Введите матрицу построчно», чтобы пользователь понимал, что нужно ввести данные для матрицы.
Инициализируется переменная sum значением 0, которая будет хранить сумму четных элементов.
Запускается цикл for i:=1 to 10 do, который выполняется 10 раз, для каждой строки матрицы.
Внутри цикла запускается еще один цикл for j:=1 to 10 do, который также выполняется 10 раз, для каждого столбца матрицы.
В каждой итерации внутреннего цикла считывается элемент матрицы a[i,j] с помощью функции read(a[i,j]).
Проверяется, является ли элемент a[i,j] четным с помощью оператора % (остаток от деления). Если остаток от деления элемента на 2 равен 0, то элемент четный.
Если элемент четный, то к переменной sum прибавляется значение этого элемента с помощью оператора sum := sum+a[i,j].
После завершения внутреннего цикла, выводится сообщение «Сумма четных элементов=», а переменная sum выводится на экран.
Код завершается.