Completa il programma a lato, redatto in QBasic, ovvero questo, redatto in R.

INPUT NDati i = 0: somma = 0 Introduzione: INPUT somma = somma + dato i = i + 1 IF i < Ndati THEN GOTO PRINT "media ="; somma/

INPUT NDati
i = 0: somma = 0
Introduzione:
  INPUT dato
  somma = somma + dato
  i = i + 1
IF i < Ndati THEN GOTO Introduzione
PRINT "media ="; somma/NDati
# # # # # # # # # # # # # # # # # # # # # # # # # # # # #
NDati <- scan(file="",n=1); i <- 1; sum <- 0
5
while(i <= NDati) {dato <- scan(file="",n=1); sum <- sum+dato; i <- i+1}
12
5
18
7
3
"somma, media"; sum; sum/NDati
# "somma, media"
# 45
# 9

Il calcolo eseguito con questo sctipt: