Cho một mảng số thực có N phần tử. Viết chương trình sắp xếp các phần tử của mảng theo thứ tự tăng dần

0 bình luận về “Cho một mảng số thực có N phần tử. Viết chương trình sắp xếp các phần tử của mảng theo thứ tự tăng dần”

1. uses crt;
   var i,j,n,t:longint; a:array[1..100000]of longint;
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n); 
      for i:=1 to n Do 
         begin
            write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
         end;
      for i:=1 to n Do
         for j:=i+1 to n Do
            if a[i]>a[j] then
               begin
                  t:=a[i]; 
                  a[i]:=a[j];
                  a[j]:=t;
               end;
      write(‘Day sau khi sap xep: ‘);
      for i:=1 to n Do write(a[i],’ ‘);
   readln
   end.

   Bình luận

2. uses crt;
   var a: array[1..100] of real;

   i,n,k,j: integer;

   begin
   clrscr;
   write(‘nhap n: ‘);    readln(n); 
   for i:=1 to n do 
   begin
   write(‘nhap a[‘,i,’]: ‘);readln(a[i]);

   end;
   for i:=1 to n 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(‘day sap xep tang dan la: ‘);
   for i:=1 to n do write(a[i],’  ‘);
   readln
   end.

   Bình luận