Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от - 10 000 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых сумма элементов делится на 2, но не делится на 4. В данной задаче под парой подразумеваются два соседних элемента массива.

Мне надо ответ по Pascal ABC

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

k:=0;

for i:=1 to N-1 do

if ((a[i] + a[i+1]) >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]) >0) and ((a[i] + a[i+1]) mod 2 = 1) then begin / / находим нужную нам пару элементов с помощью условия. Как только находим:

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

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

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