program sa;

var
  sred: real;
  chet, i, b: integer;

begin
  chet := 0;
  sred := 0;
  for i := 1 to 10 do
  begin
    readln(b);
    sred := sred + b;
    if (b mod 2) = 0 then chet := chet + 1;
  end;
  
  writeln('Среднее - ', sred / 10, ' Четных - ', chet);
end.