Составить программу на языке паскальАВС: В МАССИВЕ - вопрос №13337227 от бородкин 29.03.2020 16:58

Question

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

бородкин · Answer

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

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

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