Question

Дан массив A(N). Найти количество четных элементов и сумму положительных элементов.
Пример:
5
2 -4 3 5 -7
Ответ:
2 10
напишите фастом пжпжпжп

Answer 1

var i,s,a,n,k: integer;

begin

read(n);

s:=0;

k:=0;

for i:=1 to n do begin read(a);  

if a mod 2=0 then k:=k+1;

if a>0 then s:=s+a  end;

  writeln(k,'  ',s)

end.