Question

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

Answer 1

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.