Viết chương trình nhập vào một mảng gồm N số nguyên

Viết chương trình nhập vào một mảng gồm N số nguyên

Đề bài: Viết chương trình nhập vào một mảng gồm N số nguyên. Tính tổng các phần tử đã nhập.

Lời giải:

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.