# quesito i).
nrep <- 100000
dimc <- 10
x <- rnorm(dimc*nrep,mean=120,sd=sqrt(900))
x <- matrix(x,nrow=nrep)
y <- apply(x,1,mean)
sum(y>130)/length(y)
sum(y<100)/length(y)