Вводится 10 чисел определить среднее арифметическое чисел попадающих в интервал от -5 до 18. на языке программирования паскаль. Помогите пожалуйста
Ответы
Ответ дал:
0
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
Внимание! Если программа не работает, обновите версию!
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
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад