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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку