--- PascalABC.NET 3.6.3 ---
begin
var A := ArrRandom(10, -99,99);
A.Println;
A.Indices.ForEach(p -> begin if A[p] > 0 then println(p+1) end);
end.
Пример работы:
