求數組中的最大值？

dim a(19) as integer, imax as integer, imin as integer, i as integer imax=49 imin=101 for i=0 to 19 a(i)=int(rnd*51)+50 if imax

a(i) then imin=a(i) print a(i), next print print "最大值和最小值的平均值是：";(imax+imin)/2