Ответ:

const M = 3;

const N = 2;

var A: array [1..M,1..N] of integer;

var i,j,cnt: integer;

begin

// Задаем элементы матрицы

For i:= 1 to M do

begin

 For j:= 1 to N do

 begin

 write('Введите ',((i-1)*(N))+j,' элемент: ');

 read(A[i,j]);

 end;

end;

// Считаем кол-во четных отрицательных элементов

cnt:=0;

For i:= 1 to M do

begin

 For j:= 1 to N do

 begin

 if ((A[i,j]<0) and (A[i,j] mod 2 = 0)) then cnt:=cnt+1;

 end;

end;

  writeln('Кол-во четных отрицательных элементов в массиве : ',cnt);

end.