Напишите функцию, которая определяет количество элементов передаваемого массива, которые...

Question

Напишите функцию, которая определяет количество элементов передаваемого массива, которые меньше определенного числа, это число тоже передается в функцию.

Answer 1

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

function MyNum(a:array of integer;lim:integer):=a.Where(x->x
begin
  var p:=ArrRandom(ReadInteger('n='),-99,99); p.Println;
  var k:=ReadInteger('Введите границу отсечения элементов:');
  Writeln('Количество элементов, меньших ',k,', равно ',MyNum(p,k))
end.

Пример
n= 17
-50 -52 -98 1 99 27 -44 70 -65 -22 -64 48 91 3 -69 -69 52
Введите границу отсечения элементов: 23
Количество элементов, меньших 23, равно 11