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

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.