Nhập vào một mảng,sắp xếp các phần tử theo thứ tự tăng dần,nhập vào một số a sắp xếp phần tử và số a theo thứ tự tăng dần
Nhập vào một mảng,sắp xếp các phần tử theo thứ tự tăng dần,nhập vào một số a sắp xếp phần tử và số a theo thứ tự tăng dần
By Eloise
uses crt;
var b:array[1..10000] of longint;
n,i,j,k,a,x:longint;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(b[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i]>b[j] then
begin
k:=b[i];
b[i]:=b[j];
b[j]:=k;
end;
write(‘Day tang dan: ‘);
for i:=1 to n do write(b[i],’ ‘); writeln;
write(‘Nhap vi tri phan tu can chen: ‘); readln(x);
write(‘Nhap gia tri phan tu can chen: ‘); readln(a);
for i:=n+1 downto x+1 do b[i]:=b[i-1];
b[x]:=a;
write(‘Mang sau khi them gia tri ‘,a,’ vao: ‘);
for i:=1 to n+1 do write(b[i],’ ‘); writeln;
for i:=1 to n-1 do
for j:=i+1 to n+1 do
if b[i]>b[j] then
begin
k:=b[i];
b[i]:=b[j];
b[j]:=k;
end;
write(‘Day tang dan luc nay: ‘);
for i:=1 to n+1 do write(b[i],’ ‘);
readln;
end.
program pht;
uses crt;
var B: array[1..100] of integer;
i, n, a, j, t: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
write(‘Nhap a = ‘); readln(a);
for i:=1 to n do
begin
write(‘B[‘, i, ‘] = ‘); readln(B[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do if B[i]>B[j] then
begin
t:=B[i];
B[i]:=B[j];
B[j]:=t;
end;
for i:=1 to n do write(B[i]:3);
writeln;
for i:=1 to n do if (B[i]<=a) and (B[i-1]>a) then t:=i;
for i:=n+1 downto t+1 do B[i]:=B[i-1];
B[t]:=a;
for i:=1 to n+1 do write(B[i]:3);
writeln;
for i:=1 to n do
for j:=i+1 to n+1 do if B[i]>B[j] then
begin
t:=B[i];
B[i]:=B[j];
B[j]:=t;
end;
for i:=1 to n+1 do write(B[i]:3);
readln
end.