Ответы
Ответ дал:
0
PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(15, -50, 50);
a.Println;
a.IndexesOf(t -> t > 0).Select(t -> t + 1).Println
end.
Приложения:

Вас заинтересует
2 года назад
2 года назад
3 года назад
9 лет назад
9 лет назад