VAR
 A:ARRAY[1..100] of INTEGER;
 i,i1,i2,i3,i4,Sum,Min,Max:INTEGER;
BEGIN
 { Ввод массива }
 { ... }
 Sum:=0;
 Min:=32000;
 Max:=-32000;
 FOR i:=1 TO 100 DO
  BEGIN
   IF A[i]<Min THEN 
     BEGIN
       Min:=A[i];
       i1:=i;
     END;
   IF A[i]>Max THEN 
     BEGIN
       Max:=A[i];
       i2:=i;
     END;
  END;
 Sum:=0;
 IF i1<i2 THEN
  BEGIN
    i3:=i1;
    i4:=i2;
  END ELSE
  BEGIN
    i3:=i2;
    i4:=i1;
  END;
 FOR i:=i3 TO i4 DO
  Sum:=Sum+A[i];
 WriteLn('Sum= ', Sum);
 ReadLn;
END.