СЕ
Сергей Евдокимов
В языке программирования Pascal нет такого понятия «матрица» !
Во-вторых: это тебе препод твой приказывает… А я не люблю приказов! Просить правильно научитесь…
CounN:= 0;
CounCH:= 0;
for i := 1 to Massize do
if mas [ i ] mod 2 = 0 then inc(CounN) else inc(CounCH);