СРОЧНО! ИНФОРМАТИКА 40 БАЛЛОВ!!!
В массиве А(10) найти количество положительных элементов и их сумму

Ответ:

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

PascalABC.NET

begin

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

 A.Count.Println;

 A.Sum.Println;

end.