Viết chương trình con tính tổng các phần tử trong mảng và thực hiện gọi chương trình con ?

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.

#include<bits/stdc++.h>
using namespace std;
void tinhtongmang(int &total,int *a, int &n)
{
    for (int i = 0; i<n; i++)
    {
        cout << "a[" << i << "]=";
        cin >> *(a + i);
        total+=a[i];
    }
}
int main()
{
    int n,total=0;
    cin>>n;
    int arr[n];
    tinhtongmang(total,arr,n);
    cout<<total;
    //samon247
    return 0;
}