program Project2 APPTYPE CONSOLE uses SysUtils var array 10 10 of inte

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.