Program TenCT;
Uses crt;
Var  A: array[1..100] of longint;
       i,n,tong:longint;
Begin
         Clrscr;
         Write('Nhap so phan tu cua day n= '); readln(n);
         For i:=1 to n do
           begin
             write('A[',i,']= '); readln(A[i]);
           end;
         writeln;
         tong:=0;
         Writeln('a.  Day vua nhap la: ');
         for i:=1 to n do
           begin
             Write(A[i],' ');
             tong:=tong+A[i];
           end;
        writeln;
        Writeln('Tong cac phan tu la: ',tong);
        Readln;
End.