// PascalABC.NET
begin
var a := ArrRandom(50, -100, 30);
a.Println;
var s := a.Where(p -> p > 0);
Print(s.Count, s.Sum)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
// PascalABC.NET
begin
var a := ArrRandom(50, -100, 30);
a.Println;
var s := a.Where(p -> p > 0);
Print(s.Count, s.Sum)
end.