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

for i:=1 to n do {проход по строкам}
 begin
   min:=x[i,1]; ok:=true;
    
     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:=n; 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 write (i,ind);
 end;

program two;
uses crt;
const
MAX=20;

type
line=Array[1..MAX] of real;

var
smin,min:real;
imin:Integer;
i,j,n,m,ind,k:Integer;
ok:boolean;
x:Array[1..MAX] of line;
buf:line;
juf:Array[1..MAX] of Integer;
inp:Text;

begin
Assign(inp,'matrix.txt');
Reset(inp);
Read(inp,n,m);{Є®«ЁзҐбвў® бвp®Є Ё бв®«Ўж®ў}
if (MAX<n) or (MAX<m) 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
buf[i]:=x[i][1];
juf[i]:=1;
for j:=2 to m do
if buf[i]<x[i][j] then begin
buf[i]:=x[i][j];
juf[i]:=j
end
end;
smin:=buf[1];
for i:=2 to n do begin
if smin>buf[i] then begin
smin:=buf[i];
imin:=i
end
end;
for i:=1 to n do
 begin
   min:=x[i,1]; ok:='true';
    
     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:=n; 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 write (i,ind);
 end;
Writeln;
Write('‘Ґ¤«®ўaп в®зЄa x=',juf[imin],' y=',imin)
end;
Close(inp)
end.

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

var i,j,k,ind,min,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;
    
     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:=n; 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;
end
 
end.