задан одномерный массив целых чисел. Вычислить сумму значений элементов, значения которых меньше половины значения максимального элемента чисел,но больше половины минимального элемента.

спасибо)

Работать будет, но решение очень далеко от оптимального.

beginmax:=a[1]; min:=a[1];for i:=1 to n do beginif (a[i]>max) then max:=a[i];if (a[i]<min) then min:=a[i];end;for i:=1 to n doif ((a[i]<min/2) AND (a[i]>min/2)) then writeln(a[i], " ");end.