y=0 8Us5Oi
declare X, double, 1,10 SPIYB/C
1WPDMLuN
X(1)=(5) 2FO.!m
X(2)=(-6) +0=u]
X(3)=(98) p1HU2APFP
X(4)=(-1) 3R?7&oXvH
X(5)=(3) Y]b5qguK
X(6)=(-8) Hi{c[;
X(7)=(1) 2;4Of~
X(8)=(-5) B:tST(
X(9)=(4) #Xri%&~
X(10)=(-3) | zj$p~
6:B[8otQ
} VE[W
for a,1,10,1 %#NaM\=8v
if X(a)<y then y=X(a) !>/U6h,_
else y=y qyc:;3?wm
endif uG3t%CmN
print X(a)," ",y w&v_#\T
next ,:-S<]fS{_
print "last result:", y /MSz{ %v
PDX^MYoN
一个小例子,应该可以解决你的问题