import Control.Monad
import Control.Applicative
import Data.List

main ::IO()
main=do
	n <- readLn ::IO Int
	cs <- (map read . words) <$> getLine 
	
	putStrLn $ show (solve cs ((sum' cs ) `div` 10) )

solve :: [Int] -> Int -> Int
solve [] _ = 0
solve (x:xs) v
	| x>v = solve xs v
	| otherwise = 30 + solve xs v

sum' :: [Int] -> Int
sum' [] = 0
sum' (x:xs) = x + sum' xs