Составить программу на языке паскальАВС: В МАССИВЕ - вопрос №13337227 от ggvpizi09 02.04.2022 21:22

Question

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

ggvpizi09 · Answer

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

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

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