Задан двумерный массив 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 beginread(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 beginb[i,j]:=a[i,j]/maxwrite(a[i,j]);end;end.