Question

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

Answer 1

Ответ:

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

Answer 2

Ответ:

• begin
• ArrRandom(10,-99,99).Println.ToArray.Indices(x->x>0).Select(i->i+1).Print
• end.

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