Chèn thêm một phần tử X, sao cho dãy vẫn giữ nguyên trật tự sắp xếp

Viết chương trình nhập mảng A gồm N phần tử. Sắp xếp mảng theo thứ tự tăng dần. Chèn thêm một phần tử X, sao cho dãy vẫn giữ nguyên trật tự sắp xếp

VD: m =5 dãy đã cho sau khi sắp xếp lại là : 1  2  3   4   6

Thì dãy sau khi chèn là: 1  2  3  4  5  6

Một số bài bổ sung về mảng

• Chỉ số của số hạng dương đầu tiên của dãy.
• Chỉ số của số hạng âm đầu tiên của dãy.
• Chỉ số của số hạng dương cuối cùng của dãy.
• Chỉ số của số hạng âm cuối cùng của dãy.
• Số hạng lớn nhất của dãy và chỉ số của nó.
• Số hạng nhỏ nhất của dãy và chỉ số của nó.
• Số hạng âm lớn nhất của dãy và chỉ số của nó.
• Số hạng dương nhỏ nhất của dãy và chỉ số của nó.
• Giá trị lớn thứ nhì của dãy và các chỉ số của các số hạng đạt giá trị lớn nhì.
• Giá trị nhỏ thứ nhì của dãy và các chỉ số của các số hạng đạt giá trị nhỏ nhì.
• Số lượng các số dương liên tiếp nhiều nhất.
• Số lượng các số hạng dương liên tiếp có tổng lớn nhất.
• Số lượng các số hạng âm liên tiếp nhiều nhất.
• Số lượng các số hạng âm liên tiếp có tổng lớn nhất.
• Số lượng các số hạng liên tiếp đan dấu nhiều nhất ( dãy số hạng liên tiếp được gọi là đan dấu nếu tích hai số liên tiếp âm ).
• Số lượng các phần tử không tăng nhiều nhất.
• Số lượng các phần tử giảm nhiều nhất.
• Số lượng các phần tử tăng nhiều nhất.

Bài giải Pascal

program Chen;

uses  crt;

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;
End.

Hình minh họa