Question

Найти количество чётных элементов массива,имеющих нечётные индексы N=10 [-30;30]. Ввод случайным образом,вывод в строку.

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(10, -30, 30);

 a.Println;

 var k := a.Where((v, i)-> v.IsEven and i.IsEven).Count;

 Println('Искомое количество равно', k)

end.

29 7 -2 -7 -26 -21 -9 -26 -10 27

Искомое количество равно 3

Предполагается, что индексы массива идут от 1. Если они идут от нуля, надо заменить i.IsEven на i.IsOdd