main = do
  getLine -- n
  co <- getContents
  let ss = map read $ lines co
  let ans = compute ss
  print ans

{-
基本的に全ての点数をとりたい。
しかし結果が10の倍数だと表示されない。
だから極力小さい点数の問題だけを落とす。
しかしそのとき10の倍数の問題は落としても効果がないので、
そうでない最小のものを選ぶ。
-}

compute :: [Int] -> Int
compute ss
  | isOK sum0 = sum0
  | null oks  = 0
  | otherwise = sum0 - minimum oks
  where
    sum0 = sum ss
    oks = filter isOK ss

isOK :: Int -> Bool
isOK n = 0 /= n `mod` 10
