Sử dụng lệnh for .. do:
uses crt;
var s,i,n:longint;
a:array[1..100000] of longint;
begin
clrscr;
write('Nhap n: '); 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];
write('Tong cac so nhap vao la: ',s);
readln
end.
Sử dụng lệnh while .. do:
uses crt;
var s,i,n,a:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
i:=1;s:=0;
while i<=n do begin
write('Nhap so thu ',i,' la: ');readln(a);
s:=s+a;
i:=i+1;
end;
write('Tong cac so nhap vao la: ',s);
readln
end.