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

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

Задать свой вопрос
1 ответ
Begin
max:=a[1]; min:=a[1];
for i:=1 to n do begin
if (a[i]gt;max) then max:=a[i];
if (a[i]lt;min) then min:=a[i];
end;
for i:=1 to n do
if ((a[i]lt;min/2) AND (a[i]gt;min/2)) then writeln(a[i], " ");
end.
Борька Чумаслов
спасибо)
Колгомов Костя
Работать будет, но решение очень далеко от оптимального.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт