ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program matrix(input, output,inp);
const lim=20;

var i,j,k,ind,min,max,n,m:integer;
x:array[1..lim,1..lim] of integer;
ok:boolean;
inp:Text;

begin
  
  Assign(inp,'matrix.txt');
  Reset(inp);
  Read(inp,n,m);

if (n>lim) or (m>lim) then
  Write('*Ґ¦Ґ«*о бзЁв*вм! ')

else begin
  for i:=1 to n do
   for j:=1 to m do
    Read(inp,x[i,j]);
	
for i:=1 to n do
 begin
   min:=x[i,1]; ok:=true; ind:=1;

     for j:=2 to m do
       if x[i,j]<min then begin min:=x[i,j]; ind:=j; end;

     for k:=i downto 1 do
       if x[k,ind]>min then begin ok:=false; k:=1; end;

     if ok then
      for k:=i to n do
        if x[k,ind]>min then begin ok:=false; k:=n; end;

    if ok then writeln(i,ind);
end;

for i:=1 to n do
 begin
   max:=x[i,1]; ok:=true; ind:=1;

     for j:=2 to m do
       if x[i,j]>max then begin max:=x[i,j]; ind:=j; end;

     for k:=i downto 1 do
       if x[k,ind]<max then begin ok:=false; k:=1; end;

     if ok then
      for k:=i to n do
        if x[k,ind]<max then begin ok:=false; k:=n; end;

    if ok then writeln(i,ind);
end;
end
end.