[Pascal] In dãy số

[VTKN]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Cho dãy n số nguyên, in ra dãy con dài nhất không giảm.
Mai e đi học rồi ak. Mong các giúp em

 

[VTKN]

Mấy anh giúp em với ak. Mai e đi học rồi.

 

[kingsman(lht 2k2)]

Cho dãy n số nguyên, in ra dãy con dài nhất không giảm.
Mai e đi học rồi ak. Mong các giúp em

thử code anh mới tìm dc nhé
begin
for i:=1 to n do
if a<a[i+1] then b:=1
else b=0;

for i:=1 to n do
begin
kt:=1;
for j:=i to n do
if (kt=1) and (b[j]=1) then c:=c+1
else kt:=0;
end;
max:=c[1];
for i:=1 to n do
if max<c then
begin
max:=c;
cs:=i;
end;
writeln('day con dai nhat là')
for i:=cs to cs+max do write(a:5);
end.

 

[VTKN]

thử code anh mới tìm dc nhé
begin
for i:=1 to n do
if a<a[i+1] then b:=1
else b=0;

for i:=1 to n do
begin
kt:=1;
for j:=i to n do
if (kt=1) and (b[j]=1) then c:=c+1
else kt:=0;
end;
max:=c[1];
for i:=1 to n do
if max<c then
begin
max:=c;
cs:=i;
end;
writeln('day con dai nhat là')
for i:=cs to cs+max do write(a:5

Cảm ơn anh

 

[kingsman(lht 2k2)]

Cảm ơn anh

phân khai báo em cố gắng tự làm nhé
cách chuyển code vào pascal em tự làm dc chứ