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

[Татьяна]

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

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

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

[Alex]

Недоделанное немного нашел:
Для наибольшего в строке и наименьшего в столбце:
ищет строчку, вечером переделаю:

Код

uses crt;
const n=3;m=4;
var a:array[1..m,1..n] of integer;i,j,k,l,min,max,str:integer;
{k-номер столбца, где находится максимальный элемент строки}
begin
ClrScr;
for i:=1 to m do
for j:=1 to n do begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to m do
begin
max:=a[i,1];
 for j:=1 to n do
  if a[i,j]>max then begin max:=a[i,j];k:=j;end;
min:=a[1,k];
for l:=1 to n do
 if a[l,k]<min then min:=a[l,k];
if min=max then begin str:=i;break;end;
end;
writeln('The number of needed string is ',str);
readln
end.

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