Question

Cho một dãy số nguyên gồm n phần tử i[1], i[2], … i[n]. Biết rằng dãy con tăng đơn điệu là 1 dãy a[i1],…, a[ik] thỏa mãn: i1 < i2 < … < ik và a[i1] < a[i2] < .. < a[ik]. Hãy cho biết dãy con tăng đơn điệu dài nhất của dãy này có bao nhiêu phần tử pascal

Làm theo kiểu tập tin

Answer 1

const fi='daycontd.inp';
fo='daycontd.out';
var a:array[1..100]of integer;
n,i,dn,dem:integer;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
{---------------------------xu-ly-------------------------}
dn:=0;
dem:=1;
for i:=1 to n-1 do
if a[i+1]>a[i] then
begin
inc(dem);
if i+1=n then
begin
if dn<dem then
begin
dn:=dem;
end
else if (dn=dem) then
begin
dn:=dem;
end;
end;
end
else if a[i+1]<a[i] then
begin
if dn<dem then
begin
dn:=dem;
end
else if (dn=dem) then
begin
dn:=dem;
end;
dem:=1;
end;
writeln(f2,'do dai cua doan dai nhat la: ',dn);
close(f1);
close(f2);
end.