# quesito i).
nrep <- 100000
dimc <- 16
x <- rnorm(dimc*nrep,mean=50,sd=10)
x <- matrix(x,nrow=nrep)
y <- apply(x,1,sum)
mean(y); var(y)