Нахождение в массиве одинаковой пары соседних чисел

[mimit]

Дан массив целых чисел. Есть ли в нем есть хотя бы одна пара «соседних» четных чисел?

const n=10;
var a:array[1..n] of integer;i:integer;

begin
 randomize;
 for i:=1 to n do
 a[i]:=random(100);
 for i:=1 to n do
 write(a[i],' ');
 readln;
end.

массив я вывел как найти в нем соседние одинаковые числа?

[p51x]

Тупо в лоб: проверять по два элемента на четность.

[Virtson]

Итак, какие пары мы ищем в массиве?!

for i:= 2 to n do
 if (a[i-1] = a[i]) and not odd(a[i]) then
 writeln(i, ': ', a[i]);