Листинг программы

program z49;

{ Даны числа M,N и двумерный массив M*N. Некоторый элемент массива

  назовем седловой точкой, если он яв-ся одновременно наименьшим

  в своей строке и наибольшим в своём столбце. Напечатать координаты

  какой нибудь седловой точки.                                       }

uses crt;

var i,j,fl,n,m,st,min,jj:longint;

    t:array[1..100,1..100]of integer;

 begin

  clrscr;

   write('n=');readln(n);

   write('m=');readln(m);

   for j:=1 to m do

    for i:=1 to n do

     begin

      write('t[',i,',',j,']=');readln(t[i,j]);

     end;

   for j:=1 to m do

    begin

     min:=t[1,j];st:=1;fl:=0;

     for i:=1 to n do if t[i,j]<min then begin

                                          min:=t[i,j];st:=i;

                                         end;

     for jj:=1 to m do if (min<t[st,jj])and(j<>jj)then fl:=1;

     if fl=0 then begin

                   write('-t[',st,',',j,']- число: ',t[st,j]);

        readln;halt;

       end;

    end;

   write('нету');readln;

 end.