седловая точка

[tanek]

Добрый вечер....
Не могу понять как написать pascal поиск в двумерном массиве седловой точки.
Элемент матрицы называется седловой точкой, если он является наименьшим в своей строке и одновременно наибольшим в своем столбце или, наоборот.
Помогите мне реализовать этот поиск....
Заранее вам огромное спасибо!!!!))))

[Вавел из ГМТУ]

Засунуть в цикл вот такую последовательность:

1. Ищем минимальный элемент в строке. (запоминаем индексы)
2. Смотрим индекс этого элемента и ищем максимальный элемент в столбце.
3. Если этотже элемент оказался максимальным в столбце, то выводим его.
4. *Следующая строка*

[tanek]

вот как я начала:

temp:=a[i,j];
for i:=1 to line do
  for j:=1 to colum do
  begin
     if (temp>a[i,j+1]) then
       max=a[i,j+1];
     if (temp<a[i,j+1]) then
       min=temp;
  end;

Так? я вас правильно поняла?
А как тогда дальше, не поможете?

[Вавел из ГМТУ]

При первом приближении это выглядит вот так. Можно посидеть поуменьшать код, но это ты сам.
Как выяснилось получить массив с "седловой" точкой очень не простая задача. Я минут десять тыкал и получил всего пару таких массивов.
Такчто тестируй )

Var
  A : Array [1..5, 1..5] Of Integer; // Массив.
  x, y, z : Integer; // Переменые циклов.
  Min, Max : Integer; // Минимальное и максимальное значение.
  InMin, InMax : Integer; // Индексы минимального(в строке) и максимального(в столбце) элемента.

Begin
//Заполним массив и выведем его не экран.
Randomize;
For x := 1 To 5 Do
  Begin
    For y := 1 To 5 Do
      Begin
        A[x,y] := 10 + Random(90);
        Write(A[x,y], ' ');
      End;
    Writeln;
  End;

// Найдём "седловую точку"
Writeln;
For x := 1 To 5 Do
  Begin
    // Для начала найдём минимальный элемент в строке.
    // и для наглядности выведем их индексы и значения.
    Min := A[x,1];
    InMin := 1;
    For y := 2 To 5 Do If A[x,y] < Min Then
      Begin
        Min := A[x,y];
        InMin := y;
      End;
    Writeln(x, '. Stroka');
    Writeln('Minimum = ', Min, ' , a ego nomer = [', x, ',' , InMin, ']');

    // Теперь найдём индекс максимального элемента по столбцу с номером InMin.
    Max := A[1, InMin];
    InMax := 1;
    For z := 2 To 5 Do If A[z, InMin] > Max Then
      Begin
        Max := A[z, InMin];
        InMax := z;
      End;
      Writeln('Dla stolbca:');
    Writeln('Maximum = ', Max, ' , a ego nomer = [', InMax, ',' , InMin, ']');

    // Проверим является ли эта точка "седловой".
    If (x = InMax) Then Writeln('True') Else Writeln('False');
    Writeln;
  End;

Readln;
End.

[megachuhancer]

program Project30;
{$APPTYPE CONSOLE}
var
   i, j: integer;
   n, m: integer;
   a: array [1 .. 100, 1 .. 100] of integer;
   minrow, maxrow: integer; //номера минимального и максимального элементов в строке
   mincol, maxcol: integer; //номера минимального и максимального элементов в столбце
begin
   readln(n, m);
   for i := 1 to n do begin
      for j := 1 to m do read(a[i, j]);
      readln;
   end;
   for i := 1 to n do begin
      //находим минимальный и максимальный элементы в строке
      minrow := 1;
      maxrow := 1;
      for j := 1 to m do begin
         if a[i, minrow] > a[i, j] then minrow := j;
         if a[i, maxrow] < a[i, j] then maxrow := j;
      end;
      //проверяем столбцы минимального и максимального элемента в строке
      //мы можем сделать это в одном цикле, т.к в столбце мин. элем. нам нужен
      //только макс. элем., а в столбце макс. элем. только мин.элем
      mincol := 1;
      maxcol := 1;
      for j := 1 to m do begin
         if a[mincol, maxrow] > a[j, maxrow] then mincol := j;
         if a[maxcol, minrow] < a[j, minrow] then maxcol := j;
      end;
      //ответ
      if mincol = i then writeln(i, ' ', maxrow);
      if maxcol = i then writeln(i, ' ', minrow);
   end;
end.

[Sasha_Smirnov]

Вот, может, поможет, хотя и «не на том» языке.

По крайней мере, можно испытать и сравнить.

[Sasha_Smirnov]

А главное, что ввод матриц — прямо в клетки таблиц.

[bpystep]

Вот есть такая вот процедурка, может поможет.

procedure nomera(a:matr;k:integer);
var
 max,min,i,j:integer;
begin
for i:=1 to n do
 begin
 min := 1;
 for j:=1 to N do
  if a[i,j]<a[i,min] then min := j;
 max := 1;
 for k:=1 to n do
   if a[k,min]<a[max,min] then max := k;
 if max = i then writeln('Точка matr[',max,',',min,'] седловая');
 end;
end;