prgmNEW1

Disp "Enter desired number of trials: "
Prompt x
For (i,1,x,1)
y = randint(1,10)
For(p,1,dim(y))
If min(Ans!=y(p))
augment(Ans,{y(p)})
End
Ans→y
z[i] = 10 - dim(y)
Disp "Your average was: " cumSum(z)/x