Составить программу на языке паскальАВС: В МАССИВЕ - вопрос №13336325 от BuBuBuuBu 11.08.2021 12:20

Question

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

BuBuBuuBu · Answer

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

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

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