задан одномерный целочисленный массив размерности 10 вывести на экран номера положительных элементов этого массива pascal

--- 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.

beginArrRandom(10,-99,99).Println.ToArray.Indices(x->x>0).Select(i->i+1).Printend.

Пример работы: