Ответ:

const N = 100;

const MAX = 50;

const MIN = -50;

var A: array [1..N] of integer;

var i,j,s,tmp: integer;

begin

randomize();

writeln('Исходный массив: ');

for i:=1 to N do

 begin

 A[i]:=random(MAX-MIN+1)+MIN;

 write(A[i],' ');

 end;

writeln();

for i:=1 to N do

 for j:=i to N do

   begin

   if (A[j]<A[i]) then

     begin

     tmp:=A[i];

     A[i]:=A[j];

     A[j]:=tmp;

     end;

   end;  

writeln('Отсортированный массив: ');

for i:=1 to N do write(A[i],' ');

writeln();

writeln('Сумма трех самых больших чисел: ',A[100]+A[99]+A[98]);

writeln('Попарные суммы самых больших и самых маленьких: ');

for i:=1 to N do write(A[i]+A[N-i+1],' ');

end.