Дана действительная матрица размера n x m, все элементы которой различны - Pascal - Ответ 2753640

var n:Integer; mn:Double; mj:Integer;
               mx:Double; //Ответ - максимальный элемент из минимальных
               mxi,          //индекс строки максимального элемента
               mxj:Integer; //индекс столбца максимального элемента
               i,j:Integer;
begin
 n:=Length(T);//количество строк
 mx:=T[0,0];//Начальные значения
 mxi:=0;
 mxj:=0;
 for i:=0 to N do
     mn:=T[i,0];
     mj:=0;
     begin
       for j:=0 to n do
             if mn>=T[i,j] then //нахождение минимального элемента в строке
             begin
               mn:=T[i,j]; 
               mj:=j; 
             end;
       if mx<=mn then //Если минимальный элемент в строке больше текущего максимума, то сохранить
       begin
         mx:=mn;
         mxi:=i;
         mxj:=mj;
       end;
     end;
end;