Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
nhannhan

Nhập dãy gồm N phần tử 

a)Sắp xếp dãy tăng dần

b) nhập số x từ bàn phím 

sau đó nhập số x vào mảng mà vẫn đảm bảo tính tăng dần 

Giúp mik vs ạ! Cảm ơn

 

Phía sau một cô gái
2 tháng 4 2023 lúc 22:15

program sapxep;

var

     i, j, n, x: integer;

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

begin

     write('Nhap so phan tu trong day: ');

     readln(n);

     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

                    x := a[i];

                    a[i] := a[j];

                    a[j] := x;

               end;

     write('Nhap so x: ');

     readln(x);

     for i := 1 to n do

     begin

          if x <= a[i] then

          begin

               for j := n downto i + 1 do

                    a[j] := a[j-1];

               a[i] := x;

               break;

          end;

     end;

     writeln('Day so vua sap xep va them phan tu x:');

     for i := 1 to n do

          write(a[i], ' ');

     writeln;

end.


Các câu hỏi tương tự
nhannhan
Xem chi tiết
nhannhan
Xem chi tiết
Học .com
Xem chi tiết
Hùngg Nguyễnn
Xem chi tiết
Epic Kevin
Xem chi tiết
Bảo Trâm
Xem chi tiết
Đào Cẩm
Xem chi tiết
Nguyễn Mỹ
Xem chi tiết
Nguyễn Như Ngọc
Xem chi tiết