Делфи.Матрица.Седловой элемент.

[Jane_Air]

Делфи. Помогите, пожалуйста, написать код(процедуру).

Элемент матрицы называется седловым,если его значение есть:
максимальным в строке и минимальным в столбце,на пересечении которых он находится.
Вычислить номера строки и столбца одного из седловых элементов
(если таких нет,то создается пара номеров за границами индексного множества матрицы.)

const Nmax=10; 
type Matrix=array[1..Nmax,1..Nmax] of integer;

Если можно,то пожалуйста без строк.Спасибо,буду очень благодарна.

[Stilet]

Функция проверки думаю такая будет:

function IsSedlo(x,y:integer):Boolean;
var mn,i:integer;
begin
 result:=true;
 mn:=m[x,y]; 
  for i:=1 to NMax do if (mn<m[x,i])or(mn>m[i,y]) then begin result:=false;exit; end;
end;

Ну и в цикле:

for i:=1 to NMax do
 for j:=1 to NMax do
   if IsSedlo(i,j) then writeln(i:10,j:10);

Не самое оптимальное, но мне сейчас думать лень.

[Jane_Air]

не работает(

[Jane_Air]

написала код,только не находит элемент..
может увидите ошибку..

procedure sidlo(var m:matrix;rd,st:integer);
var i,j,ii,jj,max,min:integer;k:boolean;
begin
  i:=1;j:=1;k:=false;
  for i:=1 to rd do
      begin

             max:=m[i,j];           {знаходження макс елемента в рядку }                                    {елемента в рядку}
            for j:=1 to st do
                    begin
                      jj:=j;
                      if m[i,j]>max
                      then begin
                              max:=m[i,j];
                              jj:=j;
                           end;
                    end;


             min:=m[i,jj];           {знаходження мін елемента в стовпчику}
            for ii:=1 to rd do
                    begin
                      if m[ii,jj]<min
                      then min:=m[ii,jj];
                    end;



             if round(max)=round(min) then begin
                                writeln('ryadok: ',i,' stovp4uk: ',j);
                                k:=true;
                             end;
          end;
   if k=false then writeln(st+1,' 1');
end;

[Stilet]

             min:=m[i,jj];           {знаходження мін елемента в стовпчику}
            for ii:=1 to rd do
                    begin
                      i:=ii;
                      if m[ii,jj]<min
                      then begin min:=m[ii,jj]; i:=ii; end;
                    end;

И

writeln('ryadok: ',i,' stovp4uk: ',jj);

[Jane_Air]

если так,то выдает ошибку(( сдесь:

then begin min:=m[ii,jj]; i:=ii; end;

[Stilet]

сдесь

Пока не научишься тексты ошибок читать внимательно о программировании забудь. Лучше купи преподавателя.

[Jane_Air]

Извините,я всего лишь учусь и мой возраст намного меньше Вашего,поэтому я не такая умная.А насчет ошибки,я русский никогда не учила,просто,боюсь, здесь мой украинский не поймут

[Stilet]

Причем здесь возраст? Ты ошибку получаешь. Она что белыми буквами по воздуху написана? У нее есть текст? Пусть хоть на гондурасийском - читай его, вникай в то что тебе компилятор пишет и ищи решение.
Пока не научшся работать с ошибками можешь даже не пытаться что-то написать самостоятельно.

[Jane_Air]

Да,но чтобы научится работать с ошибками,нужно писать что-то самостоятельно,что бы ошибки были