Bài 75:

program duong_chay;

uses crt;

var n,i,a,b,d,max:integer;

begin

       clrscr;

       write('Nhap n: ');  readln(n);

       b:=0;  d:=0;  max:=0;

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(a);

                     if a>b then d:=d+1

                            else d:=1;

                     if d>max then max:=d;

                     b:=a;

              end;

       write('Do dai duong chay dai nhat la: ',max);

       readln;

end.

Bài 76:

program do_dai_duong;

uses crt;

var n,i,a,d,max:integer;

begin

       clrscr;

       write('Nhap n: ');  readln(n);

       d:=0;  max:=0;

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(a);

                     if a>0 then d:=d+1 else d:=0;

                     if d>max then max:=d;

              end;

       write('Do dai day duong dai nhat la: ',max);

       readln;

end.       

75)

uses crt;
var i,j,n,max:longint; a:array[1..1000]of longint; 
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
         j:=i-1;
         while (j<>0)and(a[j]<a[j+1]) do dec(j);
         inc(j);
         if i-j+1>max then max:=i-j+1;
      end;
   writeln('Max= ',max);
readln
end.

76)

uses crt;
var i,j,n,max:longint; a:array[1..1000]of longint; 
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
         j:=i-1;
         if a[i]>0 then while (j<>0)and(a[j]>0) do dec(j);
         inc(j);
         if i-j+1>max then max:=i-j+1;
      end;
   writeln('Max= ',max);
readln
end.