Матрицы Опции

[Татьяна]

И снова матрица не программируется((((

Найти все так называемые "седловые точки" матрицы, т.е. элементы наименьшие в своей строке и наибольшие в своем столбце и наоборот

и почему у меня ничего не получается??...

[Alex]

Вот решение задачи:

Код

program sort;
uses crt;
const n=3;m=4;
var a:array[1..m,1..n] of integer;i,j,k,k1,ind,l,min,max,min1,max1:integer;
str,stb:array[1..2*m] of integer;
{k-номер столбца, где находится максимальный элемент строки}
{k1-номер столбца, где находится минимальный элемент строки}
begin
ClrScr;
for i:=1 to m do
for j:=1 to n do begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
ind:=0;k:=0;k1:=0;
for i:=1 to m do
begin
max:=a[i,1];min1:=a[i,1];
 for j:=1 to n do begin
  if a[i,j]>max then begin max:=a[i,j];k:=j;end;
  if a[i,j]<min1 then begin min1:=a[i,j];k1:=j;end;
  end;
min:=a[1,k];max1:=a[1,k1];
for l:=1 to n do begin
 if a[l,k]<min then min:=a[l,k];
 if a[l,k1]>max1 then max1:=a[l,k1];
 end;
if min=max then begin ind:=ind+1;str[ind]:=i;stb[ind]:=j;end;
 end;
if ind=0 then writeln('Седловых точек нет')
         else for i:=1 to ind do
              writeln('Седловая точка равна ',a[str[ind],stb[ind]]);
readln
end.

Сообщение отредактировано: volvo - 17.12.2004 13:19