Question

Pascal
Ввести одномерный массив, состоящий из n элементов. Найти и вывести на экран номера четных элементов.

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ReadArrInteger('Введи элементы массива:', n);

 for var i := 0 to a.High do

   if a[i].IsEven then

     Print(i+1)

end.

Answer 2

                                             PascalABC.NET

begin

var mas := ReadArrInteger('Массив :',ReadInteger('n ='));

mas.Indices(x -> x.IsEven).Select(x -> x+1).Print('/');

end.