: Viết chương trình nhập vào một dãy số nguyên có n phần tử. a. Sắp xếp dãy theo thứ tự tăng dần và in kết quả ra màn hình (sử dụng 2 thuật toán Bubble sort, Quick sort) b. Nhập vào một số x bất kì, đếm số lần xuất hiện của nó trong dãy trên. c. In ra

ctvloga300

2 năm trước

: Viết chương trình nhập vào một dãy số nguyên có n phần tử. a. Sắp xếp dãy theo thứ tự tăng dần và in kết quả ra màn hình (sử dụng 2 thuật toán Bubble sort, Quick sort) b. Nhập vào một số x bất kì, đếm số lần xuất hiện của nó trong dãy trên. c. In ra màn hình số phần tử nhỏ hơn hoặc bằng x. d. In ra màn hình số phần tử lớn hơn x.

Loga Sinh Học lớp 12

0 lượt thích 26 xem

1 trả lời

Thích Trả lời

phucboyka1

program dayso;
uses crt;
var a:array[1..1000] of integer;
i,j,n,dem,the,x,nb,lh: integer;
begin
writeln('Nhap so luong phan tu cua day: '); read(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] > a[j] then
begin
the:=a[i];
a[i]:=a[j];
a[j]:=the;
end;
writeln('Day so sau sap xep la ');
for i:=1 to n-1 do write(a[i],',');
writeln(a[n]);
write('Nhap x vao: x = '); readln(x);
dem:=0; nb:=0; lh:=0;
for i:=1 to n do
begin
if a[i] = x then dem:=dem+1;
if a[i] <=x then nb:=nb+1;
if a[i] > x then lh:=lh+1;
end;
writeln('So lan x xuat hien la ', dem);
writeln('So phan tu nho hon hoac bang x la ',nb);
writeln('So phan tu lon hon x la ',lh);
end.

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

ngocmai.iris

uses crt;
var n,i,x,j,deml,demb,dem,t:longint; a:array[1..10000]of longint;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
writeln('Cau a:');
for i:=1 to n do for j:=1 to i do
if a[i]>a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
for i:=1 to n do writeln(a[i]);
writeln('Cau b:');
write('x=');readln(x);
for i:=1 to n do
begin
if a[i]=x then inc(dem);
if a[i]<=x then inc(demb);
if a[i]>=x then inc(deml);
end;
writeln('So ',x,' xuat hien ',dem,' lan trong day.');
writeln('Cau c:');
writeln('So phan tu nho hon hoac bang x la: ',demb);
writeln('Cau d:');
writeln('So phan tu nho hon hoac bang x la: ',deml);
readln
end.

/////////////////////////////////////////

Test:

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

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

Giúp mik cả nha cảm ơn mọi người ^_^ ♡:d?

mọi người giúp mình với chỉ cần làm phần 1 mấy bài đó thôi ạ

Cho hình vẽ sau, số đo các góc A, B, C và D của tứ giác ABCD lần lượt là:

Cho mình hỏi: The newly íntalled system requires that every user (have/has) the four digit access number. Thì mình dùng have hay has ạ?

Vẽ loli đang chúc mừng sinh nhật =)) Luật như cũ Riêng mod đc ưu tiên vẽ người que

This is the second time you______your door key. A. are losing B. lose C. lost D. have lost

45 , 89 ha = ........... dag 98, 621 tấn = ........... dag 21,09 hm = ........... dam ...............m 36, 897 m = ......... m 890 dm 4 , 533 yến = ...........kg 31 dag 12 tạ = 3 / 25....... bài này hơi dài nên mik cho 20đ

Thu gọn các biểu thức: B= x(3x+2)^2-(x-1)(x^2+x+1)+2x(2x+1)(1-2x)

Giúp em sắp thi rồi em hết đỉm rồi lớp 6 đo ạ chi tiết giùm em

Cho tam giác ABC, G là trọng tâm. Qua A kẻ đường thẳng d không cắt cạnh BC của tam giác ABC. Gọi D, K, F lần lượt là hình chiếu của B, G, C lên d. Chứng minh rằng BD + CF = 3GK.

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