Элемент а [i,j] является минимальным в i-oй строке и максимальным в j-ом столбце матрицы.

uses crt;
const n=4;
var a:array[1..n,1..n]of integer;
i,j,k,max,imax,min,jmin:integer;
begin
clrscr;
randomize;
writeln('Vvedite elementy matricy:');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
clrscr;
writeln('Ishodnaia matrica:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
readln;
for j:=1 to m do {идем по столбцам}
max:=a[1,j];imax:=1; {макс=первому элементу в столбце, imax-строка в которой}
for i:=1 to n do {будет максимальный элемент столбца}
if a[i,j]>max then
begin
max:=a[i,j]; {нашли}
imax:=i; {запомнили строку}
end;
min:=a[imax,1];jmin:=1; {идем по этой строке}
for k:=1 to n do
if a[imax,j]

То есть седловую точку? Ну берете и для каждого элемента проверяете - это ли минимум-максимум.

Написал текст программы, но сюда почему-то не выложить.. .говорит не используйте в ответе символов из латинской раскладки. Скриншот тоже не дал выложить по той же причине.. .КАК? здесь можно ответить если такой жесткий фильтр стоит?? ?
И похоже по количеству символов тоже фильтр.. .полный абзац. [ссылка заблокирована по решению администрации проекта]