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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.