... ((j+1<=n)and(a[j]*a[j+1]<0)) do begin inc(sl); inc(j) end; if sl>max then max:=sl; inc(i,sl); { quay ve de xet tiep cac doan con lai} endElse inc(i);writeln('So luong so hang dan dau nhieu nhat la:',max);readln;3END. ... m:integer; BEGINClrscr;Write('So phan tu cua day so la N=');readln(N);Writeln('Nhap cac phan tu cua day so');For i:=1 to N do Begin Write('A[',i,']=');readln(A[i]);...