1.

var

   d : array of integer := new integer[20];

   a : integer;

begin

   d := arrRandom(20);

   a := d[0];

   for var i := 1 to d.Length-1 do if a > d[i] then a := d[i];

   writeln('массив d=', d);

   writeln('наименьший член массива: ', a);

end.

4.

var

   d : array[1..20] of integer;

begin

   for var i := 1 to 20 do d[i]:=i*2;

end.