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

program blabla;const N = 100;var i, k: integer;a: array [1..N] of integer;begink:=0;readln(a);for i:=1 to N doif (a[i] mod 2 >< 0) and (a[i-1] mod 2 >< 0) thenk:= k+1;writeln(k);end.