Secventa semne contrare

[•BEL11]

Salut, am asa o problema:

Se da un vector X cu n componente întregi. Sa se conceapa un subalgoritm si sa se scrie un program Pascal care determina cea mai lunga secventa
x, x[i+1], ... , x[i+p]
care are proprietatea oricare doua elemente consecutive sunt de semne contrare..

dintre care evident ca
 while (((a > 0) and (a[i+1] <0)) or ((a <0) and (a[i+1] >0) )).
Studiez pascalul de doua samptamiini, rezolvarea o pot face insa nu pot sa o trec in pascal, daka cineva ma poate ajuta sa scriu programul pascal care sa contina aceasta rezolvare.

Nu cer solutie, fiindca solutia am dato eu, rog sa ma ajutati sa scriu programul ce o contine sa fie executabil in pascal. Mersi mult...