import Control.Applicative

solve n s =  sqrt (sum (map ((^2) . subtract m) s) / n)
	where
		m = sum s / n 

main = do
	n <- readLn
	if n == 0 then return () else do
		s <- (map read . words) <$> getLine
		print $ solve n s
		main