Дана матрица A (n, n) Получить новую матрицу путем деления всех элементов матрицы на элемент, значение которого равно разности между максимальным и минимальными элементами

program zz1;

const n = 4;

/ / задаем количество элементов в массиве

var i, j:integer; / / задаем переменные целого типа

b:array [1 ... n, 1 ... n] of real;

max, min, s2:real;

begin

for i:=1 to n do

for j:=1 to n do / / получаем числа и записываем их в массив

b[i, j]:=random (101);

for i:=1 to n do / / выводим исходный массив на экран

begin

for j:=1 to n do

write (b[i, j]:8:2);

writeln;

end;

max:=0; min:=100000;

for i:=1 to n do

for j:=1 to n do

begin

if b[i, j] > max then max:=b[i, j];

if b[i, j] < min then min:=b[i, j];

end;

s2:=max-min;

for i:=1 to n do

for j:=1 to n do

b[i, j]:=b[i, j]/s2;

writeln;

for i:=1 to n do / / выводим полученный массив на экран

begin

for j:=1 to n do

write (b[i, j]:8:2);

writeln;

end;

end.