Viết chương trình nhập một mảng số nguyên gồm n phần tử,thực hiện các công việc sau:
a. Đếm các phần tử dương có mặt trong mảng
b. In ra màn hình các phần tử chẵn xuất hiện trong mảng
c. Tính trung bình cộng của các phần tử chẵn có mặt trong mảng
d. Nhập vào một số X,kiểm tra trong dayx xem có phần tử nào bằng X không? Nếu có thì chỉ ra vị trí của phần tử đó
e. Dãy đơn điệu là dãy các số nguyên giảm liên tiếp,kiểm tra xem dãy n số nguyên trong mảng có phải là dãy đơn điệu giảm hay không? Nếu không thì in ra màn hình hãy đơn điệu giảm dài nhất có mặt trong mảng
Trả lời (1)
-
uses crt;
var a,b:array[1..100]of integer;
dem,i,n,t,dem1,x,kt,kt1,dn,vt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('So phan tu duong trong mang la: ',dem);
writeln('Cac so chan co trong mang la: ');
t:=0;
dem1:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(a[i]:4);
t:=t+a[i];
inc(dem);
end;
writeln;
writeln('Trung binh cong cac phan tu co mat trong mang la: ',t/dem:4:2);
write('Nhap x='); readln(x);
kt:=0;
for i:=1 to n do
if a[i]=x then
begin
kt:=kt+1;
b[kt]:=i;
end;
if kt=0 then writeln(x,' khong co trong day')
else begin
writeln('Vi tri cua ',x,' trong day la: ');
for i:=1 to kt do
write(b[i]:4);
end;
kt1:=0;
for i:=1 to n-1 do
if a[i+1]>a[i] then kt1:=1;
if kt1=0 then writeln('Day la day con don dieu giam')
else begin
dn:=0;
dem1:=1;
for i:=1 to n-1 do
if a[i+1]<a[i] then
begin
inc(dem1);
if i+1=n then
begin
if dn<dem1 then
begin
vt:=dn;
dn:=dem1;
end
else if dn=dem1 then
begin
dn:=dem1;
vt:=i+1;
end;
end;
end
else if a[i+1]>a[i] then
begin
if dn<dem1 then
begin
vt:=i;
dn:=dem1;
end
else if dn=dem1 then
begin
dn:=dem1;
vt:=i;
end;
end;
dem1:=1;
writeln('Day don dieu giam dai nhat trong mang la: ');
for i:=vt-dn+1 to vt do
write(a[i]:4);
end;
readln;
end.
bởi Lê Tấn Vũ 17/11/2021Like (0) Báo cáo sai phạm
Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!
Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản
Các câu hỏi mới
-
Cho mảng A gồm 150 phần tử:
Viết chương trình in mảng vừa nhập ra màn hình
in các số lẻ của mảng ra màn hình
đếm số lượng số nhỏ hơn 0 có trong mảng
20/11/2022 | 0 Trả lời
-
A. Nhất định phải có phần khai báo.
B. Không cần có phần khai báo.
C. Chỉ khai báo khi dùng hàm toán học.
D. Chỉ khai báo khi chương trình có sử dụng đến thư viện chương trình con nào đó.
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
A. PI:=3.14
B. PI:3.14
C. PI=3.14
D. PI 3.14
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
A. Python quy định mỗi câu lệnh nên được viết trên một dòng riêng biệt, kết thúc bằng dấu “;”.
B. Python quy định các câu lệnh nên được viết trên một dòng.
C. Python quy định các câu lệnh nên được viết trên một dòng, kết thúc bằng dấu “;”
D. Python quy định mỗi câu lệnh nên được viết trên một dòng riêng biệt.
20/11/2022 | 1 Trả lời
-
A. Tất cả các biến dùng trong chương trình đều phải đặt tên cho chương trình dịch biết để lưu trữ và xử lí.
B. Tất cả các biến dùng trong chương trình không cần phải đặt tên.
C. Python có quy định chặt chẽ phải có phần khai báo và phần thân chương trình như Pascal.
D. Python yêu cầu sử dụng dấu “;” khi kết thúc câu lệnh.
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
A. x=5
B. x =0.2
C. x:5
D. x==5
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
a=10
print(a)
Biến a thuộc dữ liệu kiểu dữ liệu nào?
21/11/2022 | 1 Trả lời
-
b=3.5
print(b)
20/11/2022 | 1 Trả lời