Question

Решить на Паскале

Даны целые числа и целое число к Посчитать количество чисел меньших K Если таких нет выдать сообщение

Answer 1

var
a, k, h: integer;
begin
read(k);
a := 1;
while a <> 0 do
begin
read(a);
if (a < k) and (a <> 0) then inc(h);
end;
writeln(h);
end.