viết chương trình nhập một dãy số tối đa 100 số và sắp xếp lại dãy số đó theo thứ tự giảm dần

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

1. program giam_dan;

   uses crt;

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

         n,i,j,tg:integer;

   begin

        clrcsr;

        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 sap xep giam dan la: ‘);     

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

        readln;

   end.

   Bình luận

2. program chuongtrinh;

   uses crt;

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

         n,i,j,tg:integer;

   begin

             clrcsr;

             write(‘Nhap so luong phan tu can sap xep: ‘);  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 sap xep giam dan la: ‘);     

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

              readln;

   end.

   Bình luận