Question

ПАСКАЛЬ ABC.NET

Подсчитать количество элементов массива, значения которых лежат в диапазоне от K до M (Вводятся пользователем)

Answer 1

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var (k, m) := ReadInteger2('Границы диапазона К и М:');

 a.Where(p -> p in Range(k, m)).Count.Println

end.