program oken; uses crt; var a: array [1..100] of integer; s,i,n:longint; begin clrscr; write('nhap so phan tu cua mang: '); readln(N); for i:=1 to n do begin write('a[',i,']: '); readln(a[i]); s:=s+a[i]; end; writeln('Tong cac phan tu trong mang: ',s); readln; end.
