Code:
const fi='matran.inp';
fo='matran.out';
var f:text;
n,m,i,j:byte;
a:array[1..100,1..100] of byte;
function min(x,i,j:byte):boolean;
var k:byte;
begin
min:=true;
for k:=1 to m do
if a[i,k]<x then
begin
min:=false;
exit;
end;
end;
function max(x,i,j:byte):boolean;
var k:byte;
begin
max:=true;
for k:=1 to n do
if a[k,j]>x then
begin
max:=false;
exit;
end;
end;
begin
assign(f,fi);
reset(f);
readln(f,n,m);
for i:=1 to n do
begin
for j:=1 to m do
read(f,a[i,j]);
readln(f);
end;
close(f);
assign(f,fo);
rewrite(f);
for i:=1 to n do
for j:=1 to m do
if min(a[i,j],i,j) and max(a[i,j],i,j) then
begin
writeln(f,a[i,j]);
close(f);
halt;
end;
writeln(f,'k tim thay');
close(f);
end.
Bookmarks