a)
Program Bai_lam;
Uses crt ;
var a:array[1..1000] : integer; 
i,n,t:integer; 
begin 
write('nhap so phan tu cua day'); 
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(' Cac phan tu trong day la :',t); 
readln 
end.