Viết phương trình nhập vào một dảy số hảy sắp sếp đảy số tăng và giảm

0 bình luận về “Viết phương trình nhập vào một dảy số hảy sắp sếp đảy số tăng và giảm”

1. program dev;
   uses crt;
   var a:array[1..100] of longint;
         n,i,j,k:integer;
   begin
         clrscr;
         write(‘Nhap so luong 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
                                 k:=a[i];
                                 a[i]:=a[j];
                                 a[j]:=k;
                           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
                                 k:=a[i];
                                 a[i]:=a[j];
                                 a[j]:=k;
                           end;
         write(‘Day giam dan: ‘);
         for i:=1 to n do write(a[i],’ ‘);
         readln;
   end.

   Bình luận