Вводится 10 чисел определить среднее арифметическое чисел попадающих в интервал от -5 до...

Question

Вводится 10 чисел определить среднее арифметическое чисел попадающих в интервал от -5 до 18. на языке программирования паскаль. Помогите пожалуйста

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqInteger(10).Where(t->t.Between(-5,18)).DefaultIfEmpty
      .Average.Println
end.

Пример
38 -6 12 0 5 23 -32 4 11 2
5.66666666666667