Предмет: Информатика, автор: lik18da

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

Ответы

Автор ответа: LRSM

Ответ:

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

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

Приложения:

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

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

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

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Русский язык, автор: Аноним

укажите слово которое состоит из 4 звуков дым вал яма

2 года назад

Предмет: Другие предметы, автор: naataalie

ТЕОРИЯ ВЕРОЯТНОСТЕЙ
Команда состоит из 5 стрелков. Трое из них попадают в цель с вероятностью 0,8, а двое с вероятностью 0,6. Наудачу из команды выбирается один стрелок и производит выстрел. Какова вероятность того, что он попадёт?

2 года назад

Предмет: Русский язык, автор: mirmidonec1

Чистая детская наивность, инстинктивное
желание добра и справедливости
сопровождает нас, когда мы углубляемся в
дебри невымышленной жизни, в которой добро
и припаздывает, и ошибается адресом, а в
некоторых случаях просто не является, будто
позабыв о своей обязанности расправляться
со злом.
Кто решал этот вариант напишите ответы B1-B8 и проблему в тексте