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]<min) then min:=a[i];
end;
for i:=1 to n do
if ((a[i]<min/2) AND (a[i]>min/2)) then writeln(a[i], " ");
end.

Answer 2

спасибо)

Answer 3

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