dim a,max,min,sum,averagesum=0max=20 min=50 for i=1 to 20 a=(Rnd * 50) + 50sum=sum+aif aif a>max then max=a print a next print maxprint minaverage=sum/20print average
