Bài tập 8.2: Cho dãy số gồm n số. Tìm dãy con lớn nhất các phần tử có cùng dấu, (đan dấu). Giải thuật

Thực hiện giống nhu bài 1, chỉ thay điều kiện là M[i+1]*M[i] >0

Program Day_con2; Var M: array[1..100] of integer; i,n, dau,ldau, dai,Max: integer; Begin Write('Nhap so nc: '); Readln(n); For i:=1 to n do Begin Write('[',i,']='); Readln(M[i]); End; i:=0; Max:=1; dau:=1; dai:=1; ldau:=1; While i<=n do Begin i:=i+1; if M[i+1]*M[i]>0 then dai:=dai+1 else if dai> Max then Begin Max:=dai; ldau:=dau; dai:=0 End else Begin dau:=i+1; dai:=1 End; End; Write('Xau con dai:',max,' bat dau tu: ',ldau); Readln End.

- Dãy đang dấu nếu M[i]*M[i+1] < 0.

Giống bài tập 2