Ответ:

Ну, поскольку автором вопроса не указан язык, предположим, что это должен быть Pascal

PascalABC.NET

begin

 var A := ArrRandom(10, -99, 99).Where(x -> x > 0);

 A.Count.Println;

 A.Sum.Println;

end.