Дан массив a состоящий из n

целых чисел. Требуется найти количество пар соседних элементов массива, являющихся четными числами.

Формат входных данных

На первой строке записано целое число n (0

На второй строке через пробел записаны n

чисел (-1000≤ai≤1000)

- элементы массива.

Формат выходных данных

Требуется вывести единственное число - количество пар четных чисел.

Question

Информатика

Виктуся

24 февраля, 16:44

Дан массив a состоящий из n

целых чисел. Требуется найти количество пар соседних элементов массива, являющихся четными числами.

Формат входных данных

На первой строке записано целое число n (0

На второй строке через пробел записаны n

чисел (-1000≤ai≤1000)

- элементы массива.

Формат выходных данных

Требуется вывести единственное число - количество пар четных чисел.

+3

Ответы (1)

Знаете ответ на вопрос?

Панюля · Answer 1

Var

i, k, n: integer;

a: array[1 ... 10000]of integer;

begin

k : = 0;

readln (n) ;

for i : = 1 to n do read (a[i]) ;

for i : = 2 to n do if (a[i - 1] mod 2 = 0) and (a[i] mod 2 = 0) then k : = k + 1; write (k) ;

end.