Найти отношение каждого элемента массива B к сумме и произведению массива А (C++ -> Pascal)

#include <iostream>
#include <cstdlib>
#include <cmath>
using namespace std;
void vvod(int *a,   int  n); 
void print (const int  *a,   int n);
int P_Summa(int Sum,   int *a,  double *B, int n);
int  main ( )
{
 int n;  
cout<<"Input kilkist elements n="<<endl;
cin>>n; 
int   a[n];
double B[n]; 
int Pr, Sum;
vvod ( a, n ); 
cout<<"Massiv  A"<<endl;
print (a, n);
Pr=P_Summa (Sum, a, B, n);
cout<<endl<<"Massiv B  "<<endl;
//if (Pr==0) cout<<"Massiv  B  not found"<<endl;
//else
for ( int  i=0; i < n ; i++) 
 {B[i]=(a[i]+0.)/Pr;
cout<<"     "<<B[i]<<endl;
}
return 0;
}   
void  vvod( int  *a,    int n)  
{
for (int  i=0 ; i<n ; i++)
      a[i]=10*sin(i)+pow(i,2)+1;
}
void print (const int *a,  int n) 
{  
    for ( int  i=0; i < n ; i++) 
             cout<<a[i]<< "     ";
      cout << endl;
  }
int P_Summa(int Sum,  int *a,  double *B, int n)
{  Sum=0; 
    int Pr=1;
    for (int i=0; i<n; i++)
    { Sum+=a[i];
    if (a[i]!=0)     Pr*=a[i]; 
    }
    cout<<"Summa="<<Sum<<"  Dobutok="<<Pr;
 return Pr;
}