===== PascalABC.NET =====
begin
var a := ArrRandom(20, -1000, 1000);
a.Println;
a.Where(p -> p > 7)
.Aggregate(BigInteger.One, (p, q) -> p * q)
.Print
end.
Создание новых технологий, интернет, гаджеты.
===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
Print('Количество неудовлетворительных');
a.Count(p -> p < 5).Println;
if a.Any(p -> p = 10) then
Println('YES')
else
Println('NO')
end.
ТУТ СЛОВО ВЕРТОЛЁТ!!!!!!!!!