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

Question

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

Answer 1

Begin
max:=a[1]; min:=a[1];
for i:=1 to n do begin
if (a[i]>max) then max:=a[i];
if (a[i]end;
for i:=1 to n do
if ((a[i]min/2)) then writeln(a[i], " ");
end.

Comments

спасибо)

---

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