program bt; 
var a:array[1..1000] : integer; 
i,n,t:integer; 
begin 
write('nhap so phan tu cua mang'); 
readln(n); 
for i:=1 to n do 
begin 
write('phan tu thu ',i,' : '); 
readln(a[i]); 
end; 
for i:=1 to n do 
t:= t + a[i] 
write('tong cac phan tu trong mang la :',t); 
readln 
end.