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) Ví Dụ: Mảng A là: 1 2 3 4 4 1

vumanhhung7a

2 năm trước

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) Ví Dụ: Mảng A là: 1 2 3 4 4 1 4 ---> Trong mảng có 2 dãy con tăng (1,2,3,4 ) và (1,4)

Loga Sinh Học lớp 12

0 lượt thích 19 xem

1 trả lời

Thích Trả lời

dinhtiepthnd

uses crt;
var a:array[1..1000] of longint;
i,n,j,dem:word;
begin
clrscr;
repeat
write('n=');readln(n);
until n>=2;
for i:=1 to n do read(a[i]);
readln;
i:=1;
while i<=n do
begin
j:=i+1;
while a[j]>a[j-1] do inc(j);
if j-1>i then inc(dem);
i:=j;
end;
writeln(dem);
readln;
end.

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

duc12032010

*Chỉ in kết quả đếm:

program day_tang;
uses crt;
var A:array[1..10000] of integer;
n,i,j,d:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
end;
d:=0; i:=2;
while i<=n do
begin
j:=i;
while A[i]>A[i-1] do inc(i);
if i<>j then d:=d+1;
i:=i+1;
end;
write(d);
readln;
end.

*In luôn dãy con

program day_tang;
uses crt;
var A:array[1..10000] of integer;
n,i,j,d,k:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
end;
d:=0; i:=2;
while i<=n do
begin
j:=i;
while A[i]>A[i-1] do inc(i);
if i<>j then
begin
d:=d+1;
for k:=j-1 to i-1 do write(A[k],' ');
writeln;
end;
i:=i+1;
end;
write(d);
readln;
end.

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

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

Câu 3:Tóm tắt tiểu sử họa sĩ Nguyễn Phan Chánh (1892- 1984). mn chỉ em với ạ (cái này cô môn Họa gửi nhưng thấy giống Văn nên chọn)

Câu 2:Nếu các bước vẽ tranh đề tài cảnh đẹp đất nước. mn chỉ em với ạ (cái này cô môn Họa gửi nhưng thấy giống Văn nên chọn)

Đây là phần câu trả lời các bạn lên mạng tra nốt phần còn lại rồi tìm bằng chứng trong bài đọc nha

mn chỉ em với ạ (cái này cô môn Họa gửi nhưng thấy giống Văn nên chọn)

Làm 1 trang bullet journal vintage được ko ạ !!!!!

tìm 1 số tự nhiên có 3 chữ số biết rằng nếu ta viết thêm số 3 vào bên trái số đó ta được số mới gấp 25 lần số cần tìm

Cho tứ giác ABCD và 1 điểm M thuộc miền trong của tứ giác. Cm: MA+MB+MC+MD ≥ ≥ AB+CD

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)

Mng giúp mình với mình cần gấp reported speech ah

Đây là là bài mới vào lớp 8 nên các bạn lm cho phù hợp nha

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