Program Hotboy ;

Uses crt;

Var a:array[1..50] of integer ;

S,n,i: Longint ;

Begin

Clrscr ;

S:=0;

Writeln('nhap so phan tu'); 

Readln(n);

For i:=1 to n do 

Begin

Write('A[',i,']'); 

Readln(A[i]);

End;

For i:=1 to n do

S:=S+A[i];

Writeln('Tong cac so trong mang la',S);

Readln

End.