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.
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.