ПАСКАЛЬ ABC.NET
Подсчитать количество элементов массива, значения которых лежат в диапазоне от K до M (Вводятся пользователем)
Подсчитать количество элементов массива, значения которых лежат в диапазоне от K до M (Вводятся пользователем)
Answers & Comments
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.