PascalABC.NET
begin
var A := ArrRandom(ReadInteger('длина: '), -15, 15);
A.Where(x -> x > 0).Sum.Println;
end.
PascalABC.NET
begin
var A := ArrRandom(ReadInteger('длина: '), -15, 15);
A.Where(x -> x > 0).Sum.Println;
end.