Cho một mảng a có n số nguyên. Một đoạn con của a là một dãy các phần tử tăng liên tiếp(dãy cơn >= 2 phần tử). Hãy đểm số dãy con tăng liên tiếp của mảng a.Cho một mảng a có n số nguyên. Một đoạn con của a là một dãy các phần tử tăng liên tiếp (dãy con >= 2 phần tử). Hãy đểm số dãy con tăng liên tiếp của mảng a. (Với mảng a nhập từ bàn phím và viết chương trình bằng ngôn ngữ pascal)
uses crt;
var i,j,n,k,d:longint; a:array[1..100]of longint;
begin
clrscr;
write(‘Nhap n: ‘);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]= ‘);readln(a[i]);
end;
for i:=1 to n do
begin
k:=0;
for j:=i+1 to n do
if (a[j]>a[j-1])and(k=0) then inc(d) else k:=1;
end;
writeln(d);
readln
end.
uses crt;
var i,j,n,k,d:longint; a:array[1..101]of longint;
begin
clrscr;
write(‘Nhap n: ‘);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]= ‘);readln(a[i]);
end;
for i:=1 to n do
begin
k:=0;
for j:=i+1 to n do
if (a[j]>a[j-1])and(k=0) then inc(d) else k:=1;
end;
writeln(d);
readlb:
end.