dim a(19) as integer, imax as integer, imin as integer, i as integerimax=49imin=101for i=0 to 19 a(i)=int(rnd*51)+50 if imax if imin>a(i) then imin=a(i) print a(i),nextprintprint "最大值和最小值的平均值是：";(imax+imin)/2
