Question

в линейном целоническом массиве найти все честные элементы и их порядковые номера. Паскаль

Answer 1

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