Дан ряд из 15 чисел. Найти среднее арифметическое всех нечетных чисел и вывести. Паскаль

Question

Дан ряд из 15 чисел. Найти среднее арифметическое всех нечетных чисел и вывести. Паскаль

Answer 1

//PascalABC.NET
begin
  readseqinteger('Введите 15 чисел:',15).Where(x -> Odd(x)).Average.Println;
end.