Ответ:

Const

 N=20;

var  

 mas: array[1..N] of integer;

 min: integer;

begin

 randomize;  

 for var i:=1 to N do begin

   mas[i]:= random(101)

 end;  

 writeln(mas);

 min:=mas[1];

 for var i:=1 to N do

   if mas[i]<min then

     min:=mas[i];

writeln(min)

end.

==== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println.Min.Print

end.