Составить программу на языке паскальАВС: В МАССИВЕ - вопрос №13336550 от yuriayato 19.02.2023 10:29

Question

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

yuriayato · Answer

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

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

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