uses crt;

var A:array [1..100] of longint;

k,n,i,tam,x:longint;

begin

readln(n);

for i:=1 to n do

begin

write('A[',i,']=');

readln(A[i]);

end;

for k:=1 to n-1 do

for i:=1 to n-1 do

if A[i] < A[i+1] then

begin

tam:=A[i];

A[i]:=A[i+1];

A[i+1]:=tam;

end;

writeln('a) Sap xep theo thu tu giam dan: ');

for i:=1 to n do write(A[i],' ');

writeln;

write('Nhap so can chen: '); readln(x);

i:=1;

while (x<a[i]) and(i<=n) do i:=i+1;

for k:=n+1 downto i do

A[k]:=A[k-1];

A[i]:=x;

writeln('b) Mang sau khi chen: ');

for i:=1 to n+1 do write(A[i],',');

readln;

end.

uses crt;

var i, j, tam, n, k, x : integer;

    a : array[1 .. 100] of integer;

begin

clrscr;

write('Nhap so phan tu : '); readln(n);

write('Nhap so nguyen bat ky : '); readln(x);

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

                tam := a[i];

                a[i] := a[j]; 

                a[j] := tam;

            end;

write('Mang sau khi sap xep la : ');

for i := 1 to n do

    begin

        write(a[i],' ');

        if x < a[i] then k := i;

    end;

writeln;

for i := n + 1 downto k + 1 do a[i] := a[i - 1];

a[k + 1] := x;

write('Mang sau khi chen them x la : ');

for i := 1 to n + 1 do write(a[i],' ');

readln;

end.