WwW, Фу блин, ну наконец-то!!! Элементарно решается. Я проверять код не буду, так прям рожу сюда.. (возможны опечатки и лог.ошибки), прверь сам:
Code
For i := 2 to n do
Begin
if (Odd(a[i]) <> not (Odd(a[i-1]))) then
Begin
Writeln('Парность нарушается на ',i,'-ом элементе');
Break;
End;
End;
Повторяю еще раз, это лишь идея.. ) без проверки написал
