составить программу на языке паскальАВС: В МАССИВЕ ИЗ n элементов найти среднее арифметическое отрицательных и среднее арифметическое положительных.
Ответы на вопрос
Ответил LRSM
1
Ответ:
- begin
- var a := ReadArrInteger(ReadInteger('N:'));
- Println('Отрицательных:', a.Where(x -> x.IsOdd).Average);
- Println('Положительных:', a.Where(x -> x.IsEven).Average);
- end.
Пример работы:
Приложения:
Да нет, это я знаю)) Просто условие перепутал, можете посмотреть на строку, которую я вводил, я бы отрицательные ввёл для проверки, а так... Ничего, проехали.
Много похожих решал, так запутался просто)
Новые вопросы
Русский язык,
2 года назад
Геометрия,
2 года назад
x.IsOdd заменить на x<0, а x.IsEven заменить на x>0.