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

const n=20;var a:array[1..n] of integer;k,i:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(21000)-10000; write(a[i],' '); end;writeln;k:=0;for i:=1 to n-1 do if (a[i]*a[i+1] mod 2=0)and(a[i]*a[i+1] mod 4<>0) then k:=k+1;writeln('k = ',k);end.Пример (для n=10):10563 9699 -210 -7757 6095 -8100 -9898 6507 -6578 -5793 k = 5