Цитата
{дополнение к ответу AlaRic}
Полностью прога выглядит так:
CONST n=100;
VAR i,max,min,sum:integer;
a:array[1..n] of integer;
BEGIN
max:=a[1];
min:=a[1];
sum:=0;
for i:=2 to n do
begin
if max > a[i] then max:=a[i];
if min < a[i] then min:=a[i];
end;
for i:=min to max do
sum:=sum+a[i];
Writeln('Сумма равна = ',sum);
readln;
END.
В коде проги можно изменить значение переменной n, т.е. количество чисел в массиве a.
Я бы немного добавил, если я правидльно понял вопрос, две переменные
VAR i,max,min,maxi,mini,sum:integer;
a:array[1..n] of integer;
BEGIN
max:=a[1];
min:=a[1];
sum:=0;
for i:=2 to n do
begin
if max > a[i] then maxi:=i; man:=a[i];
if min < a[i] then mini:=i; min:=a[i];
end;
if maxi<mini
to begin
i:=maxi; maxi:=mini; mini:=i;
end;
for i:=mini to maxi do
sum:=sum+a[i];
Writeln('Сумма равна = ',sum);
readln;
END.
Может кто что добавит, а то я все позабывал ;)