Дано 10 целых чисел. Определить, сколько из них меньше заданного числа В. Нужно полное...

Question

Дано 10 целых чисел. Определить, сколько из них меньше заданного числа В.
Нужно полное решение не получается

Comments

а можно больше об условии? нужно написать программу? целые числа вводят пользователи или они вводятся случайным образом? И число B, как я понимаю, вводит пользователь? Спасибо.

Answer 1

Язык программирования: PascalABC.NET 

program number1;

var
B, a : longint;
k : byte;

begin

  readln(B);

  k := 0;

  for i : byte := 1 to 10 do
  begin
    readln(a);
    if  a < B then k := k + 1;
  end;
  
  writeln(k);

end.