составить программу ** языке паскальАВС: В МАССИВЕ ИЗ n элементов найти среднее...

Question

составить программу на языке паскальАВС: В МАССИВЕ ИЗ n элементов найти среднее арифметическое отрицательных и среднее арифметическое положительных.

Answer 1

Ответ:

• begin
• var a := ReadArrInteger(ReadInteger('N:'));
• Println('Отрицательных:', a.Where(x -> x.IsOdd).Average);
• Println('Положительных:', a.Where(x -> x.IsEven).Average);
• end.

Пример работы:

---

Comments

Вообще-то Odd - проверка на нечет, а Even - проверка на чет. А вовсе не на знак, так что решено неверно.

---

И тут тоже : / Чего то я заглючил.
x.IsOdd заменить на x<0, а x.IsEven заменить на x>0.

---

Видимо, от незнания английского языка. На нем IsOdd - "есть (является) нечетный". Ну и IsEven - соответственно.

---

Да нет, это я знаю)) Просто условие перепутал, можете посмотреть на строку, которую я вводил, я бы отрицательные ввёл для проверки, а так... Ничего, проехали.

---

Много похожих решал, так запутался просто)

---

И Вас не смутила выдача, что после ввода всех положительных получено "Оторицательных: 44.2" ?