找最大数及位置.prg

来自「常用算法」· PRG 代码 · 共 20 行

dime a(10) 
clear
for i=1 to 10
   a(i)=int( rand()*100)
   ??a(i)
next i
m=a(1)
ml=1
for i=2 to 10
  if a(i)>m then
     m=a(i)
     ml=i
  endif
 next i
  ? m,ml