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

Question

Информатика

Маримьянка

2 сентября, 15:12

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

+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.