Сформировать массив целых случайных чисел в пределах 100 из 4 частей.

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

i,max,min: integer;

begin

   for i:= 1 to 100 do

   begin

       a[i]:= random(50)-25;

       write(a[i]:5);

   end;

   min:= a[1];

   max:= a[1];

   for i:= 1 to 100 do

   begin

       if a[i] gt; max then max:=a[i];

   end;

   for i:= 1 to 100 do

   begin

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

   end;

   writeln;

   writeln('min = ',min);

   writeln('max = ',max);

   writeln('min + max = ',min + max);

end.