Viết chương trình nhập một dãy số tối đá 100 số sau đó sắp xếp lại theo thứ tự tăng dần

0 bình luận về “Viết chương trình nhập một dãy số tối đá 100 số sau đó sắp xếp lại theo thứ tự tăng dần”

1. Uses Crt;
   Var a:array[1..100] of integer;

          i,n,j,tg:integer;
   Begin
    Write(‘ Nhap do dai day N= ‘); Readln(n);
      For i:=1 to n do
        Begin
          Write(‘Nhap so 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 so duoc sap xep theo thu tu tang dan la: ‘);
         For i:= 1 to n do Write(a[i]:5);
   Readln
   End.

   Bình luận

2. program tang_dan;

   uses crt;

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

         n,i,j,tg:integer;

   begin

         clrscr;

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

         for i:=1 to n do

               begin

                     write(‘Nhap so 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 la: ‘);

         for i:=1 to n do write(A[i],’ ‘);

         readln;

   end.

   Bình luận