program raf105;
const
n = 3; //Размер матрицы
var
a: array[1..n,1..n] of real;
max: real;
i,j: integer;
begin
max:= -10000;
writeln('Вводите ',n*n,' чисел по очереди');
for i:=1 to n do
for j:=1 to n do
begin
readln(a[i,j]);
if a[i,j] > max
then max:= a[i,j];
end;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
if a[i,j] < 0
then a[i,j]:= a[i,j] / max;
write(a[i,j]:5:2,' ');
end;
end;
end.
PascalABC 3.4.2
