Question

Viết chương trình nhập vào một dãy số nguyên a₁, a₂, ..., a_n. Tìm trong dãy {a} một dãy con tăng dần dài nhất (có số phần tử lớn nhất) và in ra màn hình dãy con đó.

Answer 1

program bai1;

var          A:array[1..100] of integer;i,j,dem,dau,cuoi,dau1,max:integer;

begin

              write('moi ban nhap n:');readln(n);

              for i:=1 to n do readln(A[i]);

              max:=0; dau:=1;

              for i:=1 to n do

              begin

                  inc(dau);dem:=0;

                  for j:=i to dau-1 do if A[j]

                  if dem>max then

                  begin

                       max:=dem;      dau1:=i;   cuoi:=dau;

                  end;

            end;

            for i:=dau to cuoi do write(A[i],' ');

            readln;

end.