分析:先找出行上最大的元素,然后在判断该元素在所在的列上是否是最小的,假设该元素在所在列上是最小的(flag=1).
cls
input m,n
dim a(m,n)

for i=1 to m
 for j=1 to n
  input a(i,j)
next j，i
print "输出矩阵:"
for i=1 to m
for j=1 to n
  print a(i,j)；
next j
print 
next i
for i=1 to m        '选择法排序
 k=1                '先将每行第一个位置记下
 for p=2 to n
 if a(i,k)=a(i,p) then k=p '记下每列较大的数位置放入k中
 next p
 flag=1
for j=1 to m
 if a(i,k)>a(j,k) then flag=0
next j
if flag=1 then
print "在第"；i；"行是最大数"；"在第"；k；"列是最小数"；a(i,k)
endif
next i
end