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

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

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

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

Пример
38 -6 12 0 5 23 -32 4 11 2
5.66666666666667
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт