这是源程序
clear
set udfparms to reference
input "x=" to x
input "y=" to y
declare m(x,y)
 p1(m(x,y))
 p2(m(x,y))
if n=n1
?n
else
?"no"
endif


procedure p1
parameters m
n=1
for a=1 to y
  for i=1 to x
    if n<m(i,a)  &&这里报错的
      n= m(i,a)
    endif
  endfor
endfor
return n

procedure p2
parameters m
n1=1
for i=1to x
  for a=1 to y
    if n1>m(i,a)
    n1 = m(i,a)
    endif
  endfor
endfor
return n1

数组M(X,Y)的值是什么

prg文件名

就是这个问题吗？

没有设置数组元素的值，但是xy的值都有

m数组没有定义

除6楼说的问题以外，还有：
当i=1,a=1时，m(i,a)代表m(1,1),但它并没有被赋值，怎么比较？

就楼主所描述的错误来说，错误出在“p1(m(x,y)）”这一行，应该改为“p1(m)”就可以了。但程序中还有其他错误，主要是定义了数组后，没有为数组赋数值型初值，这样数组的初值为.f.，在子程序中，“if n<m(i,a)”这一行因数据类型不同还会出错。

input "x=" to x
input "y=" to y
declare m(x,y)
*加了一下代码还是会报那个错误
for i =1 to x*y
   store i to m(i)
endfor
我用这个程序检测一下，显示的是1 2 3，说明m是赋值成功了吧？
input "x=" to x
input "y=" to y
declare m(x,y)
for i =1 to x*y
   store i to m(i)
endfor
?m(1),m(2),m(3)

input "x=" to x
input "y=" to y
dim m(x,y)    修改这里
*加了一下代码还是会报那个错误
for i =1 to x*y
   store i to m(i)
endfor
我用这个程序检测一下，显示的是1 2 3，说明m是赋值成功了吧？
input "x=" to x
input "y=" to y
declare m(x,y)
for i =1 to x*y
   store i to m(i)
endfor
?m(1),m(2),m(3)