{ 1. Cac khai bao cho chuong trinh }
Program Mang1C;
Uses crt;
Type Mang20 = array[1..20] of Integer;
Var N:Integer;
A:Mang20;
{ 2. Thu tuc nhap mang A voi N la so phan tu }
Procedure NhapMang1C(Var A : Mang20 ;Var N:Integer);
Var i: Integer;
Begin
Write( 'So luong phan tu:' ); Readln( N);
For i:=0 to N do
Begin
Write( 'Nhap phan tu thu ', i,'' ); Readln( A[i] );
End;
End;

{ 3. Thu tuc xuat mang A voi N la so phan tu }
Procedure XuatMang1C( Var A : Mang20;Var N :Integer );
Var i:Integer;
Begin
For i :=0 to N do
Write( A[i]:2 );
Writeln;
End;

{ 4. Chuong trinh con tinh tong cac phan tu trong mang }
Function TongMang1C( A : Mang20; N:Integer):longint;
Var i :Integer;
S :longint;
Begin
S := 0;
For i:=0 to N do
S := S + A[i] ;
TongMang1C:=S;
End;

{ 5. Than chuong trinh chinh }
BEGIN
NhapMang1C( A, N );
XuatMang1C( A, N );
Writeln(' Tong cac phan tu trong mang ', TongMang1C(A, N) );
Readln;
END.

uses crt;
var n,i:longint;
   a:array[1..1000]of longint;
function sumOfDigitsNumber(n:longint):longint;
begin
   sumOfDigitsNumber:=0;
   while n<>0 do
      begin
         inc(sumOfDigitsNumber,n mod 10);
         n:=n div 10;
      end;
end;
begin
clrscr;
   readln(n);
   for i:=1 to n do read(a[i]);readln;
   for i:=1 to n do
      begin
         write('Tong chu so cua ',a[i],': ',sumOfDigitsNumber(a[i]));
         writeln;
      end;
readln;
end.

{ 1. Cac khai bao cho chuong trinh }
Program Mang1C;
Uses crt;
Type Mang20 = array[1..20] of Integer;
Var N:Integer;
A:Mang20;
{ 2. Thu tuc nhap mang A voi N la so phan tu }
Procedure NhapMang1C(Var A : Mang20 ;Var N:Integer);
Var i: Integer;
Begin
Write( 'So luong phan tu:' ); Readln( N);
For i:=0 to N do
Begin
Write( 'Nhap phan tu thu ', i,'' ); Readln( A[i] );
End;
End;

{ 3. Thu tuc xuat mang A voi N la so phan tu }
Procedure XuatMang1C( Var A : Mang20;Var N :Integer );
Var i:Integer;
Begin
For i :=0 to N do
Write( A[i]:2 );
Writeln;
End;

{ 4. Chuong trinh con tinh tong cac phan tu trong mang }
Function TongMang1C( A : Mang20; N:Integer):longint;
Var i :Integer;
S :longint;
Begin
S := 0;
For i:=0 to N do
S := S + A[i] ;
TongMang1C:=S;
End;

{ 5. Than chuong trinh chinh }
BEGIN
NhapMang1C( A, N );
XuatMang1C( A, N );
Writeln(' Tong cac phan tu trong mang ', TongMang1C(A, N) );
Readln;
END.

{ 1. Cac khai bao cho chuong trinh }
Program Mang1C;
Uses crt;
Type Mang20 = array[1..20] of Integer;
Var N:Integer;
A:Mang20;
{ 2. Thu tuc nhap mang A voi N la so phan tu }
Procedure NhapMang1C(Var A : Mang20 ;Var N:Integer);
Var i: Integer;
Begin
Write( 'So luong phan tu:' ); Readln( N);
For i:=0 to N do
Begin
Write( 'Nhap phan tu thu ', i,'' ); Readln( A[i] );
End;
End;

{ 3. Thu tuc xuat mang A voi N la so phan tu }
Procedure XuatMang1C( Var A : Mang20;Var N :Integer );
Var i:Integer;
Begin
For i :=0 to N do
Write( A[i]:2 );
Writeln;
End;

{ 4. Chuong trinh con tinh tong cac phan tu trong mang }
Function TongMang1C( A : Mang20; N:Integer):longint;
Var i :Integer;
S :longint;
Begin
S := 0;
For i:=0 to N do
S := S + A[i] ;
TongMang1C:=S;
End;

{ 5. Than chuong trinh chinh }
BEGIN
NhapMang1C( A, N );
XuatMang1C( A, N );
Writeln(' Tong cac phan tu trong mang ', TongMang1C(A, N) );
Readln;
END.