Заполните массив а [1..10] случайными целыми числами в спектре от -10

program fantscrin;

 const n = 10;

 var a: array [1..n] of integer;

     i,min:integer;

Begin

 for i:=1 to n do

   a[i]:= random(21)-10;

 for i:=1 to n do

   write(a[i], '  ');

 min:=a[1];

 for i:=1 to n do

   if (a[i]lt;min) then min:=a[i];  

 writeln('');

 writeln(min+a[2]);

End.