program tinh_tong;

uses crt;

type kmang=array[1..1000] of integer;

var A:kmang;

      n,i:integer;

{---Chuong-trinh-con---}

function tong(A:kmang; n:integer):integer;

var t,j:integer;

begin

       t:=0;

       for j:=1 to n do

              t:=t+A[j];

       tong:=t;

end;

{---Chuong-trinh-chinh---}

BEGIN

       clrscr;

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

       for i:=1 to n do

              begin

                     write('A[',i,']= ');  readln(A[i]);

              end;

       write('Tong cac phan tu cua mang A la: ',tong(A,n));

       readln;

end.

uses crt;
var i,n:longint; a:array[1..1000000]of longint;
function tong:longint;
var i:longint;
begin  
   tong:=0;
   for i:=1 to n do tong:=tong+a[i];
end;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin 
         write('Nhap A[',i,']: ');readln(a[i]); 
      end;
   writeln(tong);
readln
end.