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

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

Bạn thấy bài viết này như thế nào?: 
Average: 10 (3 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Bình luận (0)

 

Add Comment

Filtered HTML

  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Các thẻ HTML được chấp nhận: <a> <em> <strong> <cite> <blockquote> <code> <ul> <ol> <li> <dl> <dt> <dd>
  • Tự động ngắt dòng và đoạn văn.

Plain text

  • No HTML tags allowed.
  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Tự động ngắt dòng và đoạn văn.
CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Làm việc với Drupal 8 Block Cache năm 2016

Làm việc với Drupal 8 Block Cache năm 2016

In case you've had trouble tracking it down (I did), the approach to caching custom blocks is different in Drupal 8 than in Drupal 7

Đại học có phải con đường duy nhất dẫn đến thành công?

Đại học có phải con đường duy nhất dẫn đến thành công?

Đại đa số các bậc phụ huynh, nhà trường khi tư vấn, định hướng cho con em, học sinh về nấc thang kế tiếp của cuộc đời các em, đều chỉ có 1 đích đến mang tên “Đại học”

Khách sạn ở New York - rận khổng lồ tấn công người

Khách sạn ở New York - rận khổng lồ tấn công người

Kỳ nghỉ đón năm mới của một đôi tình nhân trở thành ác mộng khi giường ngủ ở Astor on the Park Hotel ở New York, Mỹ, có đầy rệp, chúng cắn sưng cánh tay họ.

Công ty diệt chuột T&C

 

Diet con trung