'在函数过程参数使用数组时数组必须先定义
dim a%()        '<-- 定义数组a%()

declare function pp(aa%())  '<-- 变量名写错了,应该是a%(),函数过程说明
cls                         '清屏
for i=1 to 10               '读数据到变量
read a%(i)                  
if pp(a%( )) <> -1  then  print  %(i)  '<--没有变量名 (应该a%(i))
next  i
data  4,23,66,12,8,13,15,24,34,22      '数据
end
子程：
function pp(a%()))          '<-- 多了一个")" (右括号)
if a%(i)/2 = int(a%(i)/2) then
pp=1
else
pp=-1
end if
end function

不好意思，因为打的时候很急，所以把数组名打错了，又多打了括号。：（可是即使像楼上你说的那样，结果还是错的呀，为什么呀？？？555555555555求助中、、、、、

如何判断x是不是偶数，用这个程序试试。
input x
let x=abs(x)   　　 '先求x的绝对值
do
  let x=x-2
loop until x<2
select case x
  case 0
    print "偶数"　　’连续用2减，最后减数为0，表示这个数能被2整除，是偶数
  case 1
    print "奇数"　　’反之是奇数
end select
end

吓?不是吧?这样子判断偶数也行?

declare function pp([color=0000FF]aa%()[/COLOR])  '这参数不对
cls
for i=1 to 10
read a%(i)
if pp([color=0000FF]a%( )[/color]) <> -1  then  print [i][b]%(i)[/b][/i]
next  i
data  4,23,66,12,8,13,15,24,34,22
end
子程：
function pp(a%()))
if [color=0000FF]a%(i)[/color]/2 = int(a%(i)/2) then  '这个 i 在这里的值是0
pp=1
else
pp=-1
end if
end function


[color=FF00FF]养成良好美观易读易懂的编辑习惯也很重要.[/color]

declare function pp([color=FF00FF]aa%[/color])

cls
for i=1 to 10
  read a%(i)
  if pp(a%([color=FF00FF]i[/color])) <> -1  then  print  a%(i)
next  i
data  4,23,66,12,8,13,15,24,34,22
end
子程：
function pp([color=FF00FF]aa%[/color])
if [color=FF00FF]aa%[/color] mod 2 = 0 then
   pp=1
else
   pp=-1
end if
end function

input a
if a mod 2 then ?"技术" else ?"偶数"

偶数。。。

if abs (x) mod 2 = 0 zhen print