Cho mảng A gồm n phần tử thuộc kiểu số nguyên. Viết chương trình tính tổng giá trị phần tử trong mảng.

program tong_phantu;

uses crt;

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

     n,i,s:integer;

begin

       clrscr;

       write(‘Nhap n: ‘);   readln(n);

       s:=0;

       for i:=1 to n do

              begin

                     write(‘A[‘,i,’]= ‘);  readln(A[i]);

                     s:=s+A[i];

              end;

       write(‘Tong cac phan tu la: ‘,s);

       readln;

end.