Дан массив из 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.
    

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.