Question

Дан массив из n элементов. Необходимо найти количество элементов массива, значения которых не отрицательны и меньше заданного числа A.

Формат входных данных:
С клавиатуры вводится натуральное число n (n≤100). На следующей строке через пробел вводятся n элементов массива. Все числа по модулю не превосходят 100. В последней строке вводится единственное число A (0≤A≤100).

Формат выходных данных:
В качестве ответа выведите единственное число — количество элементов, удовлетворяющих условию.
входные данные:
5
1 2 3 4 5
3
выходные данные:
2

Answer 1

Ответ:

• begin
• var ar := ReadArrInteger(ReadInteger);
• var A := ReadInteger;
• Println(ar.Count(x -> x in 0..A-1));
• end.

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