Найдите количество чётных и нечётных чисел в задаче приведённой ниже. Заранее спасибо

Question

Найдите количество чётных и нечётных чисел в задаче приведённой ниже.
Заранее спасибо

---

Answer 1

//объяви целочисленные переменные в var с названиями chet, nechet
for i := 1 to 4 do
for j := 1 to 4 do
if M[i, j] mod 2 = 0 then chet := chet + 1
else nechet := nechet + 1;
writeln('Кол-во чётных = ', chet);
writeln('Кол-во нечётных = ', nechet);