Viết chương trình nhập vào một số có ba chữ số, tính tổng các chữ số trong số đó

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!