Матрица блин слишком большая чтоб вводить 100 элементов вручную, поэтому у меня здесь 2 возможных варианта (вручную и randomize, но при randomize никогда эту седловую точку не получить(когда 10x10)) Вот исходник (должен работать): program sedltoch; const n=10; var a:array[1..n,1..n] of integer; i,j,k,z,t,min,max:integer; begin randomize; for i:=1 to n do begin for j:=1 to n do begin write('-> '); readln(a[i,j]); {a[i,j]:=random(9)+1; write(a[i,j]:4);} end; {writeln; } end; for i:=1 to n do begin min:=maxint; for j:=1 to n do begin if a[i,j]<min then begin min:=a[i,j]; k:=j; end; end; max:=-32768; for z:=1 to n do begin if a[z,k]>max then begin max:=a[z,k]; t:=z; end; end; if (min=max) then writeln('Седловая точка -> a[',t,',',k,']=',a[t,k]); end; readln; end.
--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
|