program Day;

uses crt;

var A:array [1..500] of integer;

      n,i,T,j: integer;

Begin

         clrscr;

         write('Nhap n: '); readln(n);

         for i:=1 to n do

         begin

                  wrire('A[',i,']='); readln(A[i]);

         end;

         write('Day vua nhap la: ');

         for i:=1 to n do

         begin

                  write(A[i],'  ');

                  if A[i] mod 2=0 then T:=T+A[i];

         write('Tong cac so chan = ',T);

         writeln;

         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('Mang sau khi sap xep tang dan: ');

         for i:=1 to n do write(A[i],'  ');

         readln

End.

uses crt;
var i,j,n,s,t:longint; a:array[1..1000000]of longint;
begin
   clrscr;
   write('N=');readln(n);
   s:=0;
   for i:=1 to n Do 
      begin
           write('Nhap phan tu thu ',i,': ');readln(a[i]);
           if a[i] mod 2=0 then inc(s,a[i]);
      end;
   write('Day so theo chieu ngang: ');
   for i:=1 to n Do write(a[i],' ');
   writeln;
   writeln('Tong cac so chan co trong day so: ',s);
   for i:=1 to n Do
      for j:=i to n Do
         if a[i]>a[j] then
            begin
               t:=a[i];
               a[i]:=a[j];
               a[j]:=t;
            end;
    write('Day so sap xep theo thu tu tang dan: ');
   for i:=1 to n Do write(a[i],' ');        
readln    
end.