Var dc,n:longint;sumc:int64;sum,a:extended;
//////////////
Procedure sol(n:longint);
Begin
    if (n = 0) then exit;
    Read(a);
    if (a < 0) then sum := sum + a;
    if (frac(a) = 0) then
        if (trunc(a) mod 2 = 0) then
            begin
                inc(sumc,trunc(a));
                inc(dc);
            end;
    sol(n-1); 
End;
//////////////
BEGIN
    Read(n);
    sol(n);
    Writeln(sum);
    Writeln(sumc);
    Write((sumc/dc):0:2);
END.