tugas

a<-c(159,165,183,163,171,154,165,173,182,157,166,169,169,161,153,169,178,154,170,165,155,160,162,163,148,175,170,155,157,157,172,158,165,163,169)
n<- 35
for (i in 1:(n-4)) {for (j in (i+1):(n-3)) {for(k in(j+1):(n-2)) {for (l in (k+1):(n-1)){for (m in (l+1):n) {print(  mean(b<-c(a[i],a[j],a[k],a[l],a[m]))  ) }}}}}
for (i in 1:(n-4)) {for (j in (i+1):(n-3)) {for(k in(j+1):(n-2)) {for (l in (k+1):(n-1)){for (m in (l+1):n) {s<-s+mean(b<-c(a[i],a[j],a[k],a[l],a[m]))   }}}}}
r<-s/324632
r