Viết chương trình nhập vào mảng 1 chiều n phần tử (n<100). Từ bàn phím hãy sắp xếp và in ra theo thứ tự tăng dần. Hàng 1: các phần tử chia hết cho 3 Hàng 2: các phần tử không chia hết cho 3.

uses crt;
var a:array[1..99] of longint;
        n,i,j,tg:longint;
begin
        clrscr;
        write('Nhap so luong phan tu (n<100): '); readln(n);
        for i:=1 to n do
                begin
                        write('Nhap phan tu 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
                                        tg:=a[i];
                                        a[i]:=a[j];
                                        a[j]:=tg;
                                end;
        write('Day tang dan: ');
        for i:=1 to n do write(a[i],' '); writeln;
        write('Cac phan tu chia het cho 3: ');
        for i:=1 to n do if a[i] mod 3=0 then write(a[i],' '); writeln;
        write('Cac phan tu khong chia het cho 3: ');
        for i:=1 to n do if a[i] mod 3<>0 then write(a[i],' ');
        readln;
end.

uses crt;
var i,n,j,t:longint; a:array[1..100]of longint;
begin
clrscr;
   write('Nhap n (n<100): ');readln(n);
   for i:=1 to n do 
      begin 
         write('Nhap a[',i,']: ');readln(a[i]); 
         for j:=1 to i do 
            if a[i]<a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
      end;
   writeln('Cac so chia het cho 3: ');
   for i:=1 to n do if a[i] mod 3=0 then write(a[i],' '); writeln;
   writeln('Cac so khong chia het cho 3: ');
   for i:=1 to n do if a[i] mod 3<>0 then write(a[i],' '); 
readln
end.