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

Program Task;

Const N = 10;

Var a: Array [1 ... N] of Integer;

i, B, count: Integer;

Begin

Write ('B = ') ;

ReadLn (B) ;

WriteLn ('Введите ', N, ' элементов через пробел') ;

For i : = 1 To N Do

Begin

Read (a[i]) ;

If a[i] < B Then

count : = count + 1;

End;

WriteLn ('Количество элементов, меньших ', B, ' равно ', count) ;

ReadLn;

End.