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);