uses crt;
var a:array[1..100]of integer;
    i,n,d,tc: integer;
    tbc:real; f1,f2:text;
begin
        clrscr;
        assign(f1,'solieu.INP');reset(f1);
        assign(f2,'ketqua.OUT');rewrite(f2);
        read(f1,n);
        for i:=1 to n do
        begin
                read(f1,a[i]);
                if a[i] mod 2 = 0 then
                tc:=tc+a[i];
                d:=d+1;
        end;
        tbc:=tc/d;
        writeln(f2,d); writeln(f2,tbc:2:1); writeln(f2,tc);
        close(f1);close(f2);
end.

program baitap;
uses crt;
var f1, f2 : text;
    a : array [1 .. 100] of integer;
    i, n, d, tc : integer;
    tbc : real;
begin
clrscr;
assign(f1, 'solieu.inp'); reset(f1);
assign(f2, 'ketqua.out'); rewrite(f2);
readln(f1, n);
tc := 0; d := 0; tbc := 0;
for i := 1 to n do
    begin
        read(f1, a[i]);
        if a[i] mod 2 = 0 then
        begin
            tc := tc + a[i];
            d := d + 1;
        end;
    end;
tbc := tc / d;
writeln(f2, d,' ', tbc : 2 : 1,' ', tc);
close(f1); close(f2);
end.