# Completa in modo da avere, copiate in R le 8 righe seguenti, le uscite attese ...
NDati <- scan(file="",n=1); i <- 1; sum <- 0
5
while(i <= NDati) { ... <- scan(file="",n=1); sum <- sum+dato; i <- i+1}
12
5
18
7
3
"somma, media"; sum; sum/...