Дана целая квадратная матрица порядка n. Найти количество элементов, сумма цифр которых является четным числом, а хотя бы один из индесов нечетен.

program zz1;

const n=4;

var i, j, k, s, kol:integer;

a:array[1 ... n, 1 ... n] of integer;

begin

for i:=1 to n do / / заполняем массив и выводим на экран

begin

for j:=1 to n do

begin

a[i, j]:=random (101);

write (a[i, j]:4);

end;

writeln;

end;

writeln;

for i:=1 to n do

for j:=1 to n do

if (i mod 2 = 1) or (j mod 2 = 1) then / / проверяем нечетность индексов

begin

k:=a[i, j];

while k > 0 do

begin

s:=s + k mod 10;

k:=k div 10;

end;

if s mod 2 = 0 then kol:=kol + 1;

s:=0;

end;

write (' количество найденных элементов = ', kol);

end.