Viết Chương Trình Nhập mảng xuất ra màn hình đoạn có nhiều phần tử tăng dần. VD: 2 4 5 6 1 3 thì đoạn từ 2 –> 6 là tăng dần còn lại cũng tăng dần như

0 bình luận về “Viết Chương Trình Nhập mảng xuất ra màn hình đoạn có nhiều phần tử tăng dần. VD: 2 4 5 6 1 3 thì đoạn từ 2 –> 6 là tăng dần còn lại cũng tăng dần như”

1. Const Fi=’maxd.inp’;
         Fo=’maxd.out’;
   Var f,g:text;
       a:Array[0..1000000]of longint;
       i,n,d,j,max,e:longint;

   Begin
           Assign(f,Fi); Reset(f);
           Assign(g,fo); Rewrite(g);
           Read(f,n);
           For i:=1 to n do
                   Read(f,a[i]);
           max:=0; i:=1;
           While i<=n do
                   Begin
                           d:=1; j:=i;
                           While (a[j]<a[j+1]) and (j<=n) do
                                   Begin
                                           inc(d); inc(j);
                                   End;
                           If max<d then max:=d;
                           i:=j+1;
                   End;
           i:=1;
           While i<=n do
                   Begin
                           d:=1; j:=i;
                           While (a[j]<a[j+1]) and (j<=n) do
                                   Begin
                                           inc(d); inc(j);
                                   End;
                           If d=max then
                                   Begin
                                           For e:=i to j do
                                                   Write(g,A[e]:3);
                                                   Writeln(g);
                                   End;
                           i:=j+1;
                   End;
           Close(f);
           Close(g);
   End.

   Bình luận