Cách 1: Làm gộp

program tinh_tong;

uses crt;

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

      n,i,s:integer;

begin

      clrscr;

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

      s:=0;

      for i:=1 to n do

            begin

                  write('Nhap phan tu thu ',i,': '); readln(a[i]);

                 s:=s+A[i];

            end; 

       write('Tong: ',s);

      readln;

end.

Cách 2: While...do

program tinh_tong;

uses crt;

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

      n,i,s:integer;

begin

      clrscr;

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

      for i:=1 to n do

            begin

                  write('Nhap phan tu thu ',i,': '); readln(a[i]);

            end; 

      s:=0;  i:=1;

      while i<=n do

            begin

                  s:=s+A[i];

                  i:=i+1;

            end;

       write('Tong: ',s);

      readln;

end.

Cách 1: Dùng While

uses crt;
var a:array[1..100] of integer; n,i,s:integer;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      s:=0;
      for i:=1 to n do
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
            end;
      i:=0;
      while i<n do
         begin
            inc(i);
            s:=s+a[i];   
         end;
      write('Tong: ',s);
      readln;
end.

Cách 2: Dùng Repeat

uses crt;
var a:array[1..100] of integer; n,i,s:integer;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      s:=0;
      for i:=1 to n do
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
            end;
      i:=0;
      repeat
         inc(i);
         s:=s+a[i];   
      until i=n;
      write('Tong: ',s);
      readln;
end.