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.
|