Задан двумерный массив A [5, 10]. Получить новую матрицу путем деления всех элементов исходной матрицы на её наибольший по модулю элемент.

Var a:array[1 ... 5,1 ... 10] of integer;

b:array[1 ... 5,1 ... 10] of real;

i, max:integer;

begin max:=0;

for i:=1 to 5 do

for j:=1 to 10 do begin

read (a[i, j]) ;

if abs (a[i]) > max then max:=a[i];

end;

for i:=1 to 5 do

for j:=1 to 10 do begin

b[i, j]:=a[i, j]/max

write (a[i, j]) ;

end;

end.