uses crt;
var A:array[1..1000] of integer;
i,n,S:longint;
begin
clrscr;
write('Nhap do dai cua day so: ');readln(n);
for i:=1 to n do
begin
write('A[',i,']=');readln(A[i]);
end;
clrscr;
writeln('Cac phan tu cua mang la: ');
for i:=1 to n do write(A[i],' ');
writeln;
S:=0;
for i:= 1 to n do S:=S+A[i];
write('Tong cac phan tu trong mang la: ',S);
readln;
end.