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

Question

Информатика

Толяша

31 марта, 11:57

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

+5

Ответы (1)

Знаете ответ на вопрос?

Антония · 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.