program EvenNegativeElements;

var
arr: array[1..10] of integer;
i, count: integer;

begin
count := 0;

// Ввод элементов массива
writeln('Введите 10 целочисленных элементов массива:');
for i := 1 to 10 do
begin
readln(arr[i]);
end;

// Подсчет количества четных отрицательных элементов
for i := 1 to 10 do
begin
if (arr[i] < 0) and (arr[i] mod 2 = 0) then
begin
count := count + 1;
end;
end;

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