Khai báo biến mảng:

program tinh_tong;

uses crt;

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

      n,i,t:integer;

begin

       clrscr;

       write('Nhap so luong phan tu: ');  readln(n);

       t:=0;

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(A[i]);

                     t:=t+A[i];

              end;

       write('Tong cac so la: ',t);

       readln;

end.

Không khai báo biến mảng:

program tinh_tong;

uses crt;

var n,i,t,a:integer;

begin

       clrscr;

       write('Nhap so luong phan tu: ');  readln(n);

       t:=0;

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(a);

                     t:=t+a;

              end;

       write('Tong cac so la: ',t);

       readln;

end.

Uses Crt;
Var i,S,n: integer; a: array[1..100] of integer;
Begin
Clrscr;
Write('Nhap so ptu n= '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap a[',i,']= '); Readln(a[i]);
End;
S:=0;
For i:=1 to n do
S:=S+a[i];
Writeln('Tong cua cac so tu 1 den ',n,'= ', S);
Readln;
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé! Đa tạ trước ạ :D
*p/s: Hỏi và đáp, comment bên dưới!