Codeforces 200B - Drinks
calc xs = (sum xs / fromIntegral (100 * length xs)) * 100 main = do s <- getLine t <- getLine putStrLn $ show $ calc $ map (\x -> read x :: Double) $ words t
型に関する理解があいまいなので、型エラーがなかなか取れませんでした。
Haskellでは型を合わせないと数値計算できないようです。
型変換は以下のページを参考にしました。
Int・Integer・Float・Double・Rational 数値間の変換 - sirocco の書いてもすぐに忘れるメモ