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

Ответы

Ответ дал: LRSM

Ответ:

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

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

Приложения:

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

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

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

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

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

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

Вас заинтересует

Русский язык

2 года назад

Что такое Телефон и как им пользоваться

Математика

2 года назад

памогите пажалуйста даю 50балов

Русский язык

2 года назад

Обрати личные обороты в безличные Я не работаю.Ты спишь.Он дремлит.Мы не хотим.Вы не думаете. мы не говорим.Никто не спал в эту ночь.Маша не сидит дома.Я не хотел уходить.Витя вздумал отдохнуть у