VCT nhập vào dãy số. Sắp xếp thành dãy giảm dần. In dãy vừa sắp xếp.

0 bình luận về “VCT nhập vào dãy số. Sắp xếp thành dãy giảm dần. In dãy vừa sắp xếp.”

1. program Day;

   uses crt;

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

         n,i,j,tg: integer;

   Begin

            clrscr;

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

                               tg:=A[i];

                               A[i]:=A[j];

                               A[j]:=tg;

                      end;

            write(‘Day sau khi sap xep: ‘);

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

            readln

   End.

   Bình luận