===== PascalABC.NET =====

begin

 var n := ReadInteger;

 ReadSeqInteger(n)

     .Where(p -> p.InRange(10,99))

     .DefaultIfEmpty

     .Average

     .Println

end.