Для динамического массива подсчитать количество его четных элементов с нечетным порядковым номером - Free Pascal

Формулировка задачи:

Для динамического массива подсчитать количество его четных элементов с нечетным порядковым номером

Решение задачи: «Для динамического массива подсчитать количество его четных элементов с нечетным порядковым номером»

Листинг программы

var
  arr : array of integer;
  count, X : Integer;
  b : boolean;
 
// ... тут инициализация массива и заполнение
 
b := true; count := 0;
for X in arr do
begin
  Inc(count, Ord(not b and not Odd(X)));
  b := not b;
end;
writeln(count);

Объяснение кода листинга программы

В данном коде используется цикл for, который проходит по всем элементам динамического массива. Переменная count инициализируется нулем и используется для подсчета количества четных элементов с нечетным порядковым номером. Переменная b инициализируется значением true и используется для определения четности/нечетности текущего элемента. Внутри цикла, если текущий элемент нечетный (т.е. Odd(X) = true), то к переменной count прибавляется единица (Inc(count, 1)). Затем значение переменной b инвертируется (not b), т.е. если изначально было true, то становится false и наоборот. После завершения цикла, выводится значение переменной count, которое и является ответом на задачу.