import Data.Ratio
main::IO()

main = do
  getLine
  ws <-fmap (fmap (toRational . read) . words) getLine
  let resAmt = sum . map (/10) $ ws
      henkan [] = 0
      henkan (x:xs) = (if (x <= resAmt) then 30 else 0)
                      + henkan xs
  print . henkan $ ws