program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:array[1..10,1..10]of integer;
b:array[1..10,1..10]of real;
i,j,min:integer;
begin
randomize;
min:=100;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(10)+2;
write(a[i,j],' ');
if abs(a[i,j])<min then min:=abs(a[i,j]);
end;writeln;
end;writeln;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
b[i,j]:=a[i,j]/min;
write(b[i,j]:1:2,' ');
end;writeln;
end;
readln;
end.