uses crt;
var A:array[1..10000] of integer;
    i,j,sch,dem,tam,n:integer; tb:real;
begin
   clrscr;
   sch:=0; dem:=0; tb:=0;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
      if A[i] mod 2 = 0 then sch:=sch+A[i];
      if A[i] mod 3 = 0 then inc(dem);
      tb:=tb+A[i];
   end;
   write('Hien thi cac so ra man hinh: ');
   for i:=1 to n do write(A[i]:4);
   tb:=tb/n;
   writeln;
   writeln('Co ',dem,' phan tu chia het cho 3');
   writeln;
   writeln('Gia tri trung binh cua cac phan tu la: ',tb:4:2);
   for i:=1 to n-1 do
      for j:=i+1 to n do
      if A[i]>A[j] then
      begin
         tam:=A[i];
         A[i]:=A[j];
         A[j]:=tam;
      end;
    write('Day tang dan: ');
    writeln;
    for i:=1 to n do write(A[i]:4);
    writeln;
    write('Danh sach cac so chan la: ');
    for i:=1 to n do
    if A[i] mod 2 = 0 then write(A[i]:4);
    writeln;
    write('Tong cac so chan la: ',sch);
    readln
end.
      
      
      
      
      
      
      

uses crt;
var a:array[1..1000000] of longint;
      n,i,j,t,s,d,s1: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]);
                  inc(s1,a[i]);
                  if a[i] mod 2=0 then inc(s,a[i]);
                  if a[i] mod 3=0 then inc(d);
            end;
      write('a) Cac so vua nhap: ');
      for i:=1 to n do write(a[i],' '); writeln;
      writeln('b) Tong cac phan tu chan: ',s);
      writeln('c) Co ',d,' phan tu chia het cho 3');
      writeln('d) Gia tri trung binh cac phan tu: ',s1/n:0:2);
      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('e) 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],' '); writeln;
      write('f) Danh sach cac so chan: ');
      for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); writeln;
      writeln('   Tong cua chung: ',s);
      readln;
end.