###### Execicio 8 vetores

#n <- as.numeric(readline("Digite n: "))
#vetor <- c()
#soma <- 0

#for (i in(1:n)){
#  x <- as.numeric(readline("Digite o valor: "))
#  vetor <- c(vetor, x)
#  soma <- soma + x
#}

#media <- soma/n

#somatoria <- 0

#for (i in(1:n)){
#  somatoria <- somatoria + (vetor[i] - media)^2
#}

#desvio_padrao <- (somatoria/n)^(1/2)

#print(desvio_padrao)