Нахождение минимаксного элемента Опции

[Сим-Сим88]

В заданной матрице A m*n найти минимаксный элемент и номер строки, в которой он расположен.
Минимаксный- минимальный из максимальных элементов строк.

Буду премного благодарен.

Вот что я настрочил, но не могу доделать.

Код

var
I, J, Imin, Imax, M, N: integer;
Min, Max: real;
A:array[1..100,1..100] of real;
B: array[1..100] of real;
begin
writeln ('введите число размерности матрицы',M,N);
readln M,N;
for I:=1 to M do
begin
writeln ('A[', I, ',', J, ']=');
for J:=1 to N do
read (A[I,J]);
end;
writeln ('матрица:');
........................
тут она от меня требует вывода матрицы в виде таблицы
.......................
Min:=A[1,1];
Imin:=1;
Max:=A[1,1];
for I:=1 to M do
for J:=1 to N do
begin
if A[I,J]>Max then begin
Max:=A[I,J];
Imax:=I;
end;
if Max,Min then begin
Min:=A[I,J];
Imin:=I;
end;
B[I]:=Max; {вот эту строку я вообще не понял}
end;
Writeln ('Min=', Min, ' ', Imin);
writeln ('Max в строке:');
for I:=1 to M do writeln(B[I]:6:3);

пользумся тэгами !
.................................
вот мы по ходу нашли масимум, осталось в этих максимумах найти минимумы (т.е. мы найдем минимаксный элемент), а потом найти номер строки в которой он расположен. Мозги работать отказались

Сообщение отредактировано: GoodWind - 15.12.2005 1:50