let read () = Scanf.scanf "%d " (fun i -> i) let () = let n = read () in let c = Array.init n (fun _ -> read ()) in let z = Array.fold_left (+) 0 c / 10 in Array.fold_left (fun s c -> s + if c <= z then 30 else 0) 0 c |> Printf.printf "%d\n"