fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) fun printAns [] _ = ignore () | printAns (h::tl) averageScore = ( print (Int.toString (Real.floor (50.0 - (averageScore - (Real.fromInt h)) / 2.0)) ^ "\n"); printAns tl averageScore ) val () = let val n = readInt () val xs = List.tabulate (n, fn _ => readInt ()) val averageScore = Real.fromInt (List.foldl (fn (x, acc) => x + acc) 0 xs) / (Real.fromInt n) in printAns xs averageScore end