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

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

Const n=3; m=4;

var a:array[1 ... n, 1 ... m] of real;

i, j:integer; min:real;

begin

Randomize;

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