Const
  n = 20;

var
  i, e, p: integer;
  a: array[1..n] of integer;

begin
  Randomize;
  writeln('Массив А:');
  p := 0;
  for i := 1 to n do
  begin
    e := Random(100) - 50;
    a[i] := e;
    write(e:5);
    if e mod 2 = 0 then p := p + 1
  end;
  writeln;
  writeln('Количество четных элементов в массиве равно ', p)
end.

Тестовое решение:

Массив А:
   49   19   42   41  -21  -25   42   21   45   -1  -18   29  -48   21  -34   26  -25    4    5   -8
Количество четных элементов в массиве равно 8