program mn;
uses crt;
var a:array[1..100]of integer;
i,n,s:integer;
BEGIN ClrSCr;
Write('N:');readln(n);
randomize;
for i:=1 to n do begin a[i]:=random(40)-17;
write(a[i],' ');
if (a[i]>0)and(a[i] mod 2 =0) then s:=s+a[i];
end;
writeln;
Writeln(s);
readln;
END.