: 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.
: 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
By Eva
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.
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: