Введите элементы массива а[1..10] с клавиатуры и вычислите количество элементов с четными положительными значениями.

На Pascal:

program znanija;

var
  a: array [1..10] of integer;
  number, i: integer;

begin
for I := low(a) to high(a)do
begin
  read(a[I]);
  if (a[I] gt; 0) and (a[I] mod 2 = 0) then
    inc(number);
end;
writeln(number);
end.
Таки да, пиши, на каком языке тебе нужен ответ!