PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018 Внимание! Если программа не работает, обновите версию!
begin var m:=ArrRandom(20,-99,99); m.Println; var a:=ReadInteger('Введите число "a":'); Writeln('Число элементов, меньших ',a,' = ',m.Where(t->t<a).Count) end.
Внимание! Если программа не работает, обновите версию!
begin
var m:=ArrRandom(20,-99,99); m.Println;
var a:=ReadInteger('Введите число "a":');
Writeln('Число элементов, меньших ',a,' = ',m.Where(t->t<a).Count)
end.