Viết chương trình sử dụng biến mảng đẻ sắp xếp n số nguyên nhập từ bàn phím theo thứ tự tăng dần Mong m.n giúp ạ Mik đang cần gấp

0 bình luận về “Viết chương trình sử dụng biến mảng đẻ sắp xếp n số nguyên nhập từ bàn phím theo thứ tự tăng dần Mong m.n giúp ạ Mik đang cần gấp”

1. uses crt;

   var i,n,j,k,max,h,m : integer;

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

   begin clrscr;

   write(‘Nhap so phan tu :’); readln(n);

   for i:=1 to n do begin

   write(‘Nhap a[‘,i,’]=’); readln(a[i]);

   end;

   {Sap xep mang theo thu tu tang dan }

   For i:=1 to n-1 do

   for j:=i+1 to n do

   if a[i]>a[j] then begin

   k:=a[i]; a[i]:=a[j]; a[j]:=k; end;

   for i:=1 to n do write(a[i]:3);

   Readln

   end.

   Bình luận

2. uses crt;
   var a:array[1..10000] of longint;
           n,i,j,tg:longint;
   begin
         clrscr;
         write(‘Nhap so luong phan tu: ‘); readln(n);
         for i:=1 to n do
                begin
                       write(‘Nhap phan tu thu ‘,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
                                  tg:=a[i];
                                  a[i]:=a[j];
                                  a[j]:=tg;
                              end;
          write(‘Day tang dan: ‘);
          for i:=1 to n do write(a[i],’ ‘);
          readln;
   end.

   Bình luận