пусть дана вещественнная матрица размером ПхТ , в которой не все

[Романн]

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

помогите написать, чего-то не получается

[Alex11223]

И? Покажите ваши наработки, расскажите, что не получается или огласите сумму и способы получения вознаграждения за решение.

[Романн]

Uses crt;
var a:array[1..3, 1..3] of integer;
i,j,max:integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
begin
read (a[i,j]);
end;
max:=a[1,1];
for i:=1 to 3 do
for j:=1 to 3 do
if a[i,j]>max then max:=a[i,j];

begin
writeln('max=',max);
end;
end.


я нашел max элемент, как его поделить на все остальные и вывести

[Alex11223]

Вы не нашли max по модулю элемент. Функция, возвращающая модуль числа — abs(x)

В смысле как поделить? Также как и max искали: в цикле for проходить всю матрицу и делить все элементы на него.

[Романн]

спасибо большое