program a;

uses crt;

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

      i,n,S,S1,S2:integer;

begin clrscr;

   writeln('Nhap so phan tu n: '); readln(n);

   for i:=1 downto n do

     begin

        writeln('A[',i,']'); readln (A[i]);

     end;

    S:=0; S1:=0; S2:=0;

  for i:=1 downto n do

     S:=S+A[i];

     writeln('Tong mang do la: ',S);

   for i:=1 downto n do

     begin

        if A[i] mod 2=0 then writeln('Cac phan tu chan la: ',A[i])

        S1:=S1+A[i];

     end;

   writeln('Tong cac phan tu chan la: ',S);

   for i:=1 downto n do

     begin

        if A[i] mod 2<>0 then writeln('Cac phan tu le la: ',A[i]);

        S2:=S2+A[i];

     end;

   writeln('Tong cac phan tu le la: ',S);

readln;

end.

Học tốt!

var

      S:String; a,so:integer;

begin

      write('Nhap so: ');readln(a);

      Tong:=0;

      str(a,S);

      for i:=1 to length(S) do

     begin

              val(S[i],so);

                Tong:=Tong+So;

      write(Tong);

      readln;

end.

#Bai_nay_minh_lam_dang_xau_ki_tu_nhe

#Ban_hoc_tot