Untitled

var
  A: array[1..10] of Integer;
  i, evenCount, oddCount: Integer;
begin
  // Заполнение массива A элементами
  evenCount := 0;
  oddCount := 0;
  for i := 1 to 10 do
  begin
    if A[i] mod 2 = 0 then
      evenCount := evenCount + 1
    else
      oddCount := oddCount + 1;
  end;
  writeln('Количество чётных элементов:', evenCount);
  writeln('Количество нечётных элементов:', oddCount);
end.

Вторая часть:

var
  A: array[1..10] of Integer;
  i, evenPositiveCount: Integer;
begin
  // Заполнение массива A элементами
  evenPositiveCount := 0;
  for i := 1 to 10 do
  begin
    if (A[i] > 0) and (A[i] mod 2 = 0) then
      evenPositiveCount := evenPositiveCount + 1;
  end;
  writeln('Количество чётных положительных элементов:', evenPositiveCount);
end.