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

program zz1;

const n = 4; / /задаем количество элементов в массиве

var i, max, min, k:integer;

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / записываем в массив числа случайным образом

m[i]:=random (21);

for i:=1 to n do / / выводим массив на экран

write (m[i],' ');

writeln;

max:=0; min:=10000;

for i:=1 to n do

begin

if m[i] > max then max:=m[i]; / / находим максимальный элемент

if m[i] < min then min:=m[i]; / / находим минимальный элемент

end;

for i:=1 to n do if (m[i] min div 2) then k:=k + m[i];

writeln (' найденная сумма = ', k); / / выводим ответ

end.