===== PascalABC.NET =====
begin
var n := ReadInteger('Число элементов:');
var a := ArrRandom(n, -99, 99);
a.Println;
a.Indices(p -> p.IsEven).Select(p -> p + 1).Print
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== PascalABC.NET =====
begin
var n := ReadInteger('Число элементов:');
var a := ArrRandom(n, -99, 99);
a.Println;
a.Indices(p -> p.IsEven).Select(p -> p + 1).Print
end.