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

Question

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

Answer 1

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.