var a:array[1..10] of integer;
i,s,n,k:integer;
Begin
read(n);
for i := 1 to n do begin
read(a[i]);
if a[i]>0 then begin
s:=s+a[i];
k:=k+1;
end;
writeln(s, s/k);
End.
