Xác định số mảng con tăng có trong a (giải giúp với nhé)

[haipgdtp]

Viết chương trình nhập vào một mảng A, có n phần tử. Ta định nghĩa một mảng con tăng dần trong A là một dãy các phần tử liên tiếp gần nhau và có thứ tự tăng dần trong A.
a. Xác định số mảng con tăng có trong a.
b. In ra mảng con tăng dài nhất trong a.

[ksc10]

Tìm code của câu b, sau đó chế lại thì ra code của câu a.
(p/s: nhớ chèn -vô cực vào cuối mảng nhé)

[huyshady1996]

uses crt;
var dau,cuoi,max,i,ld,lc,n,dem:integer;
a:array[1..100] of integer;
Begin
write('n='); readln(N);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
dau:=1;
cuoi:=1;
max:=1;
a[n+1]:=-32768;
for i:=2 to n+1 do
if a[i]>=a[i-1] then cuoi:=i
else
begin
if (cuoi-dau+1)>1 then dem:=dem+1;
if (cuoi-dau+1)>=max then
begin
max:=cuoi-dau+1;
ld:=dau;
lc:=cuoi;
end;
dau:=i;
cuoi:=i;
end;
writeln(dem);
for i:=ld to lc do write(a[i],' ');
readln
ENd.

[nguyenvannam1510]

Mình paste bài viết của bạn lên private cho dễ nhìn code nhé
link: privatepaste(.)com/a10d6ed8e8