Help e bài này ạ viết chương trình nhập n và mảng a gồm n phần tử, in ra dãy tăng lớn nhất trong mảng và độ dài dãy đó. vd: Input: n=5, a={-2;3;6;8;4;5} Output: -2; 3; 6; 8 do dai day 4 *Đệ quy hoặc quy hoạch động ạ

nahue118

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 22 xem

1 trả lời

Thích Trả lời

Haily

uses crt;
var n,i,j,x,vt,max:longint;l,a,t:array[0..1000]of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=n-1 downto 1 do
begin
for j:=i+1 to n do
if(i<>j)and(l[i]<l[j]+1)and(a[i]<a[j])then begin l[i]:=l[j]+1;t[i]:=j;end;
end;
for i:=1 to n do
if(max<l[i])then begin max:=l[i];vt:=i;end;
t[0]:=vt;
l[0]:=max+1;
x:=t[0];
repeat
write(a[x],' ');
x:=t[x];
until x=0;
readln;
end.
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

ngoxu714

uses crt;
var n,i,j:longint; a,l,t:array[0..100000]of longint;
begin
clrscr;
readln(n);
for i:=1 to n do read(a[i]); readln;
a[n+1]:=high(longint);
a[0]:=low(longint);
for i:=n downto 0 do
for j:=i to n+1 do
if(a[i]<a[j])and(l[i]<l[j]+1)then begin l[i]:=l[j]+1; t[i]:=j; end;
i:=0;
while t[i]<>0 do
begin
i:=t[i];
if i<n+1 then write(a[i],' ');
end;
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Viết đoạn văn theo cách tổng phân hợp, trình bày suy nghĩ của em về khổ thơ thứ 3 trong bài thơ '' Nhớ rừng ''. Trong đoạn văn có sử dụng 1 câu ghép, 1 phó từ và gạch chân dưới từ đó.

trung bình công 7 số đầu là 16. do thêm số thứ 8 nên có tung bình cộng là 17. tìm số thứ 8

ai làm đúng mình tích cho nhanh nhé

Cho tam giác ABC, có A=120 độ, BC=7cm, AC=5cm. Tính AB, R,r, độ dài đường trung tuyến vẽ từ A, độ dài đường phân giác vẽ từ đỉnh A giúp mình với, mình cần gấp, hứa vote 5 sao

nay lại vẽ ff nhưng là 1 trang phục

1. Cho tam giác ABC có AC=7cm, AB=5cm, cos A=0,6. Tính S,,R,r 2. Cho tam giác ABC có AB=3, AC=4, S=3 căn 3. Tính BC giúp mình với, mình cần gấp, hứa vote 5 sao

Giúp mk với ạ mk bí quá rùi Chứng minh và giải thích tính chất nhiệt đới gió mùa ẩm vủa nc ta Nêu đặc điểm của miền khí hậu phía bắc Nêu đặc điểm miền khí hậu phía nam

Viết bài văn trình bày suy nghĩ của em về tri thức là sức mạnh

Giúp cho mk chi tiết, đầy đủ, Ko làm tắt nha, mk sẽ tick sao , cảm ơn và ctlhn cho ạ

Chuyển các từ sau đây thành ved hoặc v3 Buy Visit Locate See Speak

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến