как найти количество четных элементов матрицы?

[Tolian92]

примерно как

[Arigato]

Завести счетчик, обнулить его. Перебрать все элементы матрицы, если элемент четный - увеличить значение счетчика.

[Stilet]

примерно как

Покажи как ты вводишь массив, я покажу как искать

[Mad_Cat]

примерно как

var i,j,k,m,n:integer;
a:array[1..100,1..100] of integer;
begin
readln(n,m)
k:=0;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(50)-25;
if not odd(a[i,j]) then inc(k);
write(a[i,j],'  ');
end;
writeln;
end;
writeln(k);
end.