Найдите сумму и количество элементов массива , попавших в интервал [a; b]. Границы интервала вводятся с клавиатуры Решите задачу при функции Язык : Pscal Abc

HunterX05 HunterX05    1   14.07.2020 01:56    10

Ответы
ElementalOfChaos ElementalOfChaos  15.10.2020 15:21
PascalABC.NET ₃.₆.₃.₂₅₇₇##var (a,b) := ReadInteger2('Введите a, b:');var n := ReadInteger('Введите длину массива:');var m := ReadArrInteger('Введите элементы массива:', n);var mf := m.Where(x -> x in a..b);Println('Сумма:', mf.Sum);Print('Количество:', mf.Count);

"Функции":

ReadInteger2, ReadInteger, ReadArrInteger, Where, Sum, Count.

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


Найдите сумму и количество элементов массива , попавших в интервал [a; b]. Границы интервала вводятс
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика