const
m = 8;
n = 5;
var
Mas: array[1..m,1..n] of real;
i,j: integer;
max: real;
begin
for i:=1 to m do
for j:=1 to n do
begin
Mas[i,j]:=Random(1000)/100;
end;
for i:=1 to m do
begin
for j:=1 to n do
begin
Write(Mas[i,j]:6:3);
end;
writeln;
end;
writeln;
max:=Mas[1,1];
for i:=1 to m do
for j:=1 to n do
begin
if Abs(Mas[i,j]) > max then
max:=Mas[i,j];
end;
Writeln('max = ', max:6:3);
writeln;
for i:=1 to m do
for j:=1 to n do
begin
Mas[i,j] := Mas[i,j]/max;
end;
for i:=1 to m do
begin
for j:=1 to n do
begin
Write(Mas[i,j]:6:3);
end;
writeln;
end;
end.
|
