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

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

Question

Информатика

Адамыч

27 декабря, 01:08

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

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

+1

Ответы (1)

Знаете ответ на вопрос?

Федос · Answer 1

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

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

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

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