#PASCAL

uses crt;
var a:array[1..100] of integer;
n,i,sum :integer;
begin
clrscr;
sum:=0;
write('Nhap n = ');
readln(n);
for i:=1 to n do begin
write('a[',i,']= ');
readln(a[i]); end;
writeln('Day so vua nhap la');
for i:=1 to n do
begin
write(' ',a[i]);
sum:=sum+a[i];
end;
writeln;
writeln('Tong = ',sum);
readln;
end.

#TEST 

Nhap n = 5
a[1]= 1
a[2]= 2
a[3]= 3
a[4]= 4
a[5]= 5
Day so vua nhap la
 1 2 3 4 5
Tong = 15

uses crt;

var A : array [1 .. 100] of integer;

i, N, S : integer;

begin

clrscr;

S := 0;

write('Nhap N = '); readln(N);

write('Nhap mang gom ', N ,' so : ');

for i := 1 to N do

    begin

        read(A[i]);

        S := S + A[i];

    end;

write('Day so vua nhap : ');

for i := 1 to N do write(A[i],' ');

writeln; write('Tong cac so vua nhap : ', S);

readln

end.