顺序查找.prg

常用算法

clear
dime a(10)
  for i=1 to 10
    a(i)=int(rand()*100)
    ??a(i)
   next i
  input "输入要查找的数：" to x
  for i=1 to 10
    if a(i)=x then
      ?"找到：",x,i
      return
    endif
   next  
  ?"没有找到！"