Cho dãy gồm n số. Tìm dãy con lớn nhất đơn điệu (liên tục tăng, giảm hoặc giảm, tăng).

Program Day_con2; Var M: array[1..100] of integer; i,n, dau,ldau, dai,Max: integer; Begin Write′Nhapsonc:′; Readlnn; For i:=1 to n do Begin Write′[′,i,′]=′; ReadlnM[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′Xaucondai:′,max,′batdautu:′,ldau; Readln End.

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.