02.01.2007, 18:55
общий
это ответ
Здравствуйте, Arian!
Тут имеется в виду, что n-количество столбцов, m-строк,matrix[1..n,1..m]-матрица
for i:=1 to n do begin
max:=0;
for j:=1 to m do
if matrix[j,i]>max then max:=matrix[j,i];
stolb[i]:=max;
end;
for i:=1 to m do begin
min:=10000;
for j:=1 to n do if matrix[j,i]<min then min:=matrix[j,i];
strok[i]:=min;
end;
counter:=1;
if m<n then s:=m else s:=n;
for i:=1 to s do
if stolb[i]=strok[i] then begin
results[counter]:=i;
inc(counter);
end;