Viết chương trình nhập một mảng số nguyên. In ra mảng sắp xếp theo chiều giảm

0 bình luận về “Viết chương trình nhập một mảng số nguyên. In ra mảng sắp xếp theo chiều giảm”

1. for i:=1 to  n do

    Begin 

    cs:=i;//cs là chỉ số của của gt max

     For j:=i+1 to n do if a[j]>a[i] then Cs:=j;

      c:=a[i]

     a[i]:=a[cs];

     A[cs]:=c;

    end;

   Nhập xuất tự làm

   Bình luận

2. program ct;
   uses crt;
   var A:array[1..1000] of integer;
         i,j,n,k: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;
      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;
      write(‘Mang sau khi xep theo chieu giam dan la: ‘);
      for i:=1 to n do
         write(A[i]:3);
   readln;
   end.

   Học tốt!

   Bình luận