clearn=3local arrdimension arr(n)for i=1 to ninput '请输入第'+alltrim(str(i))+'个数:' to arr(i)endforstore arr(1) to lnmin,lnmaxx=2do while x<=nif lnmin>arr(x)lnmin=arr(x)endifif lnmaxlnmax=arr(x)endifx=x+1enddo?'最小值为:',lnmin?'最大值为:',lnmax