Pascal. Двумерный массив.

Получить новую матрицу путем деления всех элементов данной матрицы на ее наименьший по модулю элемент

Разве не должны присутствовать index1, index2?

Не должны.

Нет, заглянуть в Личные сообщения: дальше переписываться тут нет смысла.

const n=3; m=4;var a:array[1..n,1..m] of real;i,j:integer; min:real;beginRandomize;writeln('Исходная матрица:');for i:=1 to n do begin for j:=1 to m do  begin  a[i,j]:=10*random-5;  write(a[i,j]:6:2);  end;  writeln;  end;min:=abs(a[i,j]);for i:=1 to n do for j:=1 to m do  if abs(a[i,j])<min then min:=abs(a[i,j]);for i:=1 to n do for j:=1 to m do a[i,j]:=a[i,j]/min;writeln('min = ',min:6:2);writeln('Измененная матрица:');for i:=1 to n do begin for j:=1 to m do write(a[i,j]:6:2); writeln;end;end.Пример:Исходная матрица:  4.25 2.99 -2.67 -0.88-0.80 3.69 -1.94 -1.18 -3.37 0.65 4.62 1.45 min = 0.65 Измененная матрица:  6.53 4.61 -4.11 -1.36 -1.23 5.68 -2.99 -1.81 -5.19 1.00 7.10 2.23