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

katmoxie katmoxie    1   29.06.2020 22:25    3

Ответы
maxforg1 maxforg1  15.10.2020 15:05

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


задан одномерный целочисленный массив размерности 10 вывести на экран номера положительных элементов
ПОКАЗАТЬ ОТВЕТЫ
artur283 artur283  15.10.2020 15:05
beginArrRandom(10,-99,99).Println.ToArray.Indices(x->x>0).Select(i->i+1).Printend.

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


задан одномерный целочисленный массив размерности 10 вывести на экран номера положительных элементов
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика