Задача В Дельфи

[koos]

В одномерном массиве А, состоящий из 15 целых чисел, вычислить сумму элементов, расположенных между минимальным и максимальным элемен-тами (включая эти элементы).

 

[mss]

icq 169527143

 

[Cambur]

привет!
venezuela@mail.ru

 

[OldSkorpin]

насколько понимаю - числа в массив случайные (рандомом) заносятся?

 

[kyvour]

сначала генерирем массив из 15 элементов (т.к. в задачи не указано каким образом, предположим что рандомом от -n до n. n можна заменить, например, на 100)

randomize;
for i:=1 to 15 do
A[i]:=random(n+1)-n;

Далее определяем порядковые номера минимального и максимального элементов

imin:=1;
imax:=1;
for i:=2 to 15 do
begin
if A[i]<A[imin] then imin:=i;
if A[i]>A[imax] then imax:=i;
end;

Теперь нужно, собственно посчитать сумму, но тут уже есть некоторые условия:
1) imin<imax - минимальный элемент стоит раньше максимального
2) imax<imin - максимальный элемент стоит раньше минимального
3) imin=imax - номера минимального и максимального элементов совпадают. Это может быть лишь в том случае, если весь массив состоит из однаковых элементов. Вероятность такого исхода практически нулевая, но все же...
Ниже все собственно в коде:

Sum:=0;
if imin=imax then writeln('Массив состоит из одинаковых элементов')
else if imin<imax then
for i:=imin to imax do
Sum:=Sum+A[i]
else
for i:=imax to imin do
Sum:=Sum+A[i];

Собственно эта программа ищет сумму между первым минимальным и первым максимальным элементом массива если таких элементов несколько