let () = let foi = float_of_int in let iof = 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 makeD x = iof (50. -. (a -. (foi x)) /. 2.) in let ans = Array.map makeD xrr in Array.iter (fun x -> print_endline (soi x)) ans