Nhập vào một dãy số sau đó sắp xếp tăng dần, giảm dần ? Pascal ạ

0 bình luận về “Nhập vào một dãy số sau đó sắp xếp tăng dần, giảm dần ? Pascal ạ”

1. Câu xem sai sót đoạn nào k nha
   

2. uses crt;
   var a:array[1..1000000] of longint;
         n,i,j,t:longint;
   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
                                 t:=a[i];
                                 a[i]:=a[j];
                                 a[j]:=t;
                           end;
         write(‘Day tang dan: ‘);
         for i:=1 to n do write(a[i],’ ‘); writeln;
         for i:=1 to n-1 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 giam dan: ‘);
         for i:=1 to n do write(a[i],’ ‘);
         readln;
   end.