PascalABC.NET
## var A := ArrRandom(ReadInteger('M:'), 100, 999);
a.Where(x → x mod 10 = 7).Println;
a.Where(x → x mod 10 = 7).Sum.Println;
a.Where(x → x mod 10 = 7).count.Println;
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
PascalABC.NET
## var A := ArrRandom(ReadInteger('M:'), 100, 999);
a.Where(x → x mod 10 = 7).Println;
a.Where(x → x mod 10 = 7).Sum.Println;
a.Where(x → x mod 10 = 7).count.Println;