Const
  n=10;
var
  a:array[1..n] of integer;
  i,k:integer;
begin
  Randomize;
  Write(Исходный массив: );
  k:=0;
  for i:=1 to n do
  begin
    a[i]:=Random(51)-25;
    Write(a[i], );
    if (a[i]gt;0) and (a[i] mod 2=0) then Inc(k)
  end;
  Writeln;
  Writeln(Количество четных положительных чисел равно ,k)
end.

Контрольный прогон
Исходный массив: 6 -13 -13 -19 -18 -10 -18 8 -17 -4
Количество четных положительных чисел равно 2