let () = Scanf.scanf "%d\n" @@ fun n -> let crr = Array.init n @@ fun _ -> Scanf.scanf " %d" @@ fun d -> d in let ok = (Array.fold_left (+) 0 crr) / 10 in let ans = Array.fold_left (fun s c -> if c > ok then s else s + 30) 0 crr in Printf.printf "%d\n" ans