var m,n,i,j,k: Integer;
a:array [0..100,0..100] of Integer;
ok,kt: Boolean;
begin
readln(m,n);
for i:=0 to m-1 do
for j:=0 to n-1 do
Read(a[i, j]);
ok:=False;
for i:=0 to m-1 do
begin
for j:=0 to n-1 do
begin
kt:=True;
for k:=0 to n-1 do
begin
if a[i,j]>a[i,k] then
begin
kt:=False;
Break;
end;
end;
if kt then
begin
for k:=0 to m-1 do
begin
if a[i,j]<a[k,j] then
begin
kt:=False;
Break;
end;
end;
end;
if kt then
begin
WriteLn(i+1,',',j+1);
ok:= True;
end;
end;
end;
if not ok then
Writeln('ko co phan tu yen ngua nao');
readln;
readln;
end.

Đáp án:

Giải thích các bước giải: