Матрица

[master5918]

Даны три матрицы произвольного размера, матрицы заполнены случайными целыми числами из диапозонов [-15;10], [-12;15], [-5;17] соответственно. Определить матрицу в которой наименьшее количество четных элементов.
Заранее огромное спасибо

[rubius2008]

Заполнение 1 матрица

randomize;
for i:=1 to n do 
  for j:=1 to m do a[i,j]:=random(26)-15;

Random(26) - произвольное число от 0 до 25
Определение количества четных

k:=0;
for i:=1 to n do 
  for j:=1 to m do 
    if a[i,j] mod 2 =0 then k:=k+1;