Răspuns:
Start program
Citeste n
Pentru i=1,n, 1 executa
Citeste sir[i]
Sfarsit pentru
Ok=1;// presupunem ca toate elementele din sir indeplinesc conditia ceruta
Pentru i=1,n-1,1 executa
Daca sir[i]%2 == sir[i+1]%2 atunci
Ok=0;//inseamna ca am gasit 2 numere consecutive din sir care au aceeasi paritate.
Sfarsit daca
Sfarsit pentru
Daca ok=1 atunci
Scrie “da”
Altfel
Scrie “nu”
Sfarsit daca
Sfarsit program
