Day_dan_dau

{Tim trong day mot day dan dau co do dai dai nhat}
{Day dan dau la day cac phan tu xen ke am va duong}
uses crt;
type x1=array[1..100] of integer;
{-------------------------------------}
Function dandau(A:x1;n,i:integer):integer;
   var s,j:integer;
   begin
     S:=1;j:=i+1;
     Repeat
      If A[i]*A[j]<0 then inc(s) else break;
      inc(i);inc(j);
     Until j=n+1;
     dandau:=s;
   end;
{---------------------------------------}
var A,b:x1; Max,i,n,k:integer;
begin
    clrscr;
    write('Nhap n: ');readln(n);
    for i:=1 to n do
     begin
      Write('A[',i,']= ');readln(A[i]);
     end;
    For i:=1 to n-1 do
       B[i]:=dandau(A,n,i);
    Max:=B[1];
    For i:=2 to n-1 do
       If B[i]>Max then Max:=B[i];
    For i:=1 to n-1 do
      If B[i]=max then
       Begin
         Writeln('Day dan dau bat dau tu vi tri: ',i,' va co do dai la: ',B[i]);
         Writeln('Day dan dau nhat: ');
          for k:=i to i+B[i]-1 do Write(A[k],' ');
          break;
        end;
    readln
    end.