Const
  n=5;
var
  x:array[1..n, 1..n] of integer;
  i,j,k:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      x[i,j]:=Random(50)+1;
      Write(x[i,j]:4)
    end;
    Writeln
  end;
  k:=0; i:=2;
  while i<=n do begin
    for j:=1 to n do
      if x[i,j] mod 2=0 then Inc(k);
    i:=i+2
  end;
  Writeln('Количество четных элементов в четных строках равно ',k)
end.

Тестовое решение:
Исходный массив
   1  14  23  17  39
  27  37  28  28  21
  10   6   3  38  22
   1  31  27  50  42
  16  43  27  16  17
Количество четных элементов в четных строках равно 4