Матрицы

[surf135]

Пусть дана вещественная матрица размером
NxM, в которой не все элементы равны нулю.Получить
новую матрицу путем деления всех элементов
данной матрицы на ее наибольший по модулю элемент.

[DoDge_VipeR]

max:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if abs(a[i,j])>abs(max) then max:=a[i,j];
for i:=1 to n do
for j:=1 to m do
b[i,j]:=a[i,j]/max;