質問です。

aa={-3,-1,1,2,3,5,2,1,-2,-4,-4,-3,1,5,1,-1,-2}

のようなリストがあるとします。
このaaから

cc={2,8,12,15}

のようなリストを作りたいのですが、これをスマートに行う計算方法を探しています。
現在は、

bb=Table[If[aa[[n]]*aa[[n+1]]<0,n,neednot],{n,1,Length[aa]-1}];
cc=Select[bb,NumberQ];

という感じで処理して計算できてはいるのですが、ちょっと無理やり感があるので、
もっと直接的に行えればよいのですが…