program lx;
var a:array[1..20,1..20] of integer;
m,n,i,j:integer;
q:boolean;
function ii:boolean;
var k:integer;
begin
ii:=true;
for k:=1 to n do
  if (k<>j) and (a[i,j]>a[i,k]) then begin
                               ii:=false;
                               exit;
                                    end;
end;
function jj:boolean;
var k:integer;
begin
jj:=true;
 for k:=1 to m do
  if (k<>i) and (a[i,j]<a[k,j]) then begin
                                jj:=false;
                                exit
                                      end;
end;
begin
q:=false;
readln(m,n);
for i:=1 to m do
 for j:=1 to n do
   read(a[i,j]);
for i:=1 to m do
 for j:=1 to n do
  if ii and jj then begin writeln('a[i,j]=',a[i,j]);q:=true;end;
if not q then writeln('No');
end.



你给的数据过  了 ，其它的你再试一下，


没加文件，自己加吧