uses crt; type mang = array[1..100] of integer; var m : integer; a:mang; procedure nhap(var a: mang; var n : integer); var i :integer; begin readln(n); for i:=1 to n do begin write('Nhap a[',i,']='); readln(a[i]); end; end; function tong(var a:mang; var x : integer) : integer; var n,i : integer; begin clrscr; n:=0; for i:=1 to x do n:=n+a[i]; tong:=n; end; begin clrscr; nhap(a,m); write('Tong cac phan tu :', tong(a,m)); readln end.
