let () = let foi, iof = float_of_int, int_of_float in let soi = string_of_int in Scanf.scanf "%d\n" @@ fun n -> let xrr = Array.init n @@ fun _ -> Scanf.scanf "%d " @@ fun d -> d in let a = (foi (Array.fold_left (+) 0 xrr)) /. (foi n) in let ans = Array.map (fun x -> iof (50. -. (a -. (foi x)) /. 2.)) xrr in Array.iter (fun x -> print_endline (soi x)) ans