Bài 13: Thông tin đa phương tiện

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
lhai

Nhập một mảng các số nguyên

a/sắp xếp lại mảng đó theo thứ tự giảm dần

b/Nhập vào một số nguyên từ bàn phím .Chèn số đó vào mảng sao cho mảng vẫn có thứ tự giảm dần.

trả lời dc cho 5 sao

Nguyễn Lê Phước Thịnh
13 tháng 7 2020 lúc 11:05

uses crt;
var a:array[1..100]of integer;
i,n,k,x,t:integer;
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-1 do
for k:=i+1 to n do
if a[i]<a[k] then
begin
t:=a[i];
a[i]:=a[k];
a[k]:=t;
end;
writeln('Day giam dan la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
write('Nhap so nguyen x:'); readln(x);
i:=1;
while (x<a[i]) and (i<=n) do
inc(i);
for k:=n+1 downto i do
a[k]:=a[k-1];
a[i]:=x;
writeln('Day so duoc sap xep giam dan sau khi chen ',x,' la: ');
for i:=1 to n+1 do
write(a[i]:4);
readln;
end.


Các câu hỏi tương tự
Phùng Trọng Hiếu
Xem chi tiết
Lê Cao Huy
Xem chi tiết
Khánh Huyền
Xem chi tiết
Phạm Lê Quang Tín
Xem chi tiết
Nguyễn Quốc Cường
Xem chi tiết
Van quang Ho
Xem chi tiết
Đinh Ngọc Lan
Xem chi tiết
Nguyễn Thị Kim Yến
Xem chi tiết
Phạm Lê Quang Tín
Xem chi tiết