program ct;

uses crt;

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

      i,n:integer;

      S:longint;

begin clrscr;

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

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     S:=0;

   for i:=1 to n do

     S:=S+A[i];

   writeln('Tong mang tren la: ',S);

readln;

end.

Học tốt!

Program bai_tap ;

Uses crt ;

Var A: array [1..150] of integer ;

      S, i,n: integer;

Begin

Write('nhap n=');

Readln (n);

For i:=1 to n do

Begin

Write ('nhap phan tu thu ',i,' =');

Readln (A[i]);

end;

S:=0;

For i:=1 to n do 

S:=S+A[i];

Writeln ('Tong cac phan tu cua mang la:',S);

Readln

End.