y=0 .:TSdusr~
declare X, double, 1,10 (!diPwcv
!u%XvxJwDb
X(1)=(5) !MD uj
X(2)=(-6) S(5&%}QFQ
X(3)=(98) 'X1/tB8*
X(4)=(-1) BGL-lJrG
X(5)=(3) sKL"JA
T
X(6)=(-8) -T .C?Q g
X(7)=(1) 7j{63d`2
X(8)=(-5) x`zE#sD
X(9)=(4) [hKt4]R
X(10)=(-3) .OvH<%g!.
jRSY`MU}t+
d/` d:g
for a,1,10,1 2@$`xPg
if X(a)<y then y=X(a) hXP'NS`iv
else y=y p!p:LSk"/b
endif ~5wT|d
print X(a)," ",y P&9&/0r=_
next 6kHb*L Je
print "last result:", y bc*CP0t|
:LX
(9f
一个小例子,应该可以解决你的问题