Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые

Недостающий фрагмент:

k:=0;  

for i:=1 to N-1 do  

if ((a[i] + a[i+1])gt;0) and ((a[i] + a[i+1]) mod 2 = 1) then begin

k:=k+1;

end;

writeln(k);

Разбор:

k:=0; // переменная для подсчет количества пар частей.

for i:=1 to N-1 do // запускаем цикл до N-1, чтобы в заключительном цикле не было сбоев.

if ((a[i] + a[i+1])gt;0) and ((a[i] + a[i+1]) mod 2 = 1) then begin // обретаем подходящую нам пару частей с подмогою условия. Как только обретаем:

k:=k+1; // увеличиваем переменную, то есть прибавляем уже к  имеющемуся количеству пар еще одну.

end; // Конец цикла

writeln(k); // выводим на экран количество пар