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

n,m,i,j:integer;

begin

write('N=");readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

write('M=');readln(m);

write('Mang sau khi chen: ');

for i:=1 to n do

begin

if (m>=a[i]) and (j=0) then

begin

write(m,' ');

j:=1;

end;

write(a[i],' ');

end;

if j=0 then write(m);

readln; 

end.

*Chúc bạn học tốt, đây là cô mình dạy nhé! ^_^

Nhập vào một mảng số nguyên có n phần tử. Sắp xếp mảng tăng dần. Nhập vào số nguyên x; chèn x vào mảng đã sắp xếp sao cho thứ tự mảng vẫn tăng dần}
Var a:array [1..100] Of integer;
k,n,i,tam,x:integer;
Begin
Write('Nhap so phan tu n:');
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('Mang da sap xep:');
For i:=1 to n do write(a[i],' ');
WriteLn;
Write('nhap vao so X :');
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;
Write('Mang da chen X:');
For i:=1 to n+1 do write(a[i],' ');
ReadLn;

cái này cô mk cho