Question

Pascal
Вводится произвольная последовательность целых чисел . Найти количество элементов меньших наперед заданного числа а.

Answer 1

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

  var mas:=ReadlnString('Вводите').ToIntegers; mas.println;

  var a:=readinteger('Введите число a:');

  Writeln('Количество чисел которые меньше а=',mas.Where(t->t<a).Count);

end.