Правильность проверьте сами, нет среды под рукой.
Код:
var a: array[1..100,1..100] of real;
b: array[1..100,1..100] of real;
n,m,max,i,j,nn,nm:integer;
begin
write('Введите размерность матрицы (n,m)'); readln(n, m);
{заполняем матрицу значениями}
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
{находим максимальный по модулю элемент матрицы}
max:=abs(a[1,1]);
nn:=1;
nm:=1;
for i:=1 to m do
for j:=1 to n do
if abs(a[i,j])>max then begin max:=abs(a[i,j]); nn:=j; nm:=i; end;
{формируем новый массив}
for i:=1 to m do begin
for j:=1 to n do begin
b[i,j]:=a[i,j]/a[nn,nm];
write(b[i,j]:4:2); end;
writeln; end;
readln
end.
Исправил ошибку, так как невнимательно прочитал задание, извиняюсь
.