Дан массив из N целых элементов и целое число B. Написать программу, определяющую, сколько в массиве чисел, меньших В.

program zz1;

const n=20; / /задаем количество элементов в массиве

var mas:array[1 ... n] of integer;

i, k, b:integer;

begin

read (b); / /вводим заданное число

for i:=1 to n do

read (mas[i]); / /вводим числа в массив с клавиатуры

for i:=1 to n do

if mas[i]
write ('количество элементов массива меньше заданного числа - ', k); / /выводим ответ

end.