Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых сумма элементов делится на 2, но не делится на 4. В данной задаче под парой подразумеваются два соседних элемента массива.
Паскаль
const n = 40;
var
a: array [0..n-1]
of integer;
i, j, k: integer;
begin
for i:=0 to n-1 do
readln(a[i]);
...
end.