решите программы по одномерным массивам на языке С++

#include <iostream.h>
#include <conio.h>
#include <time.h>
#include <stdlib.h>
#include <stdio.h>
#define k 255
using namespace std;
main(void)
{
  int i,j,proizv=1,h=-1;
  int A[k],B[k];
  srand((unsigned)time(0));
  for (i=0;i<=14;i++)
  {
    A[i]=rand()%100-50;
    if (A[i]%7==0)
    {
      h++;
      B[h]=A[i];
      cout<<"KR: "<<B[h]<<endl;
    }
    else
    {
      cout<<A[i]<<endl;
    }
  }
  cout<<endl;
  if (h==-1)
    {
      cout<<"Elementi massiva otcytstvyyt";
      getch();
      goto FCR;
    }
  cout<<"Polychen massiv: "<<endl;
  for (j=0;j<=h;j++)
  {
  proizv*=B[j];
      if (j!=h)
        cout<<B[j]<<", ";
      else
      {
        cout<<B[j]<<"."<<endl;
        cout<<endl;
      }
  }
  cout<<"Ih proizvedenie ravno: "<<endl;
  cout<<proizv;
  getch();
 
FCR:
}

#include <iostream.h>
#include <conio.h>
#include <time.h>
#include <stdlib.h>
#include <stdio.h>
#define k 255
using namespace std;
main(void)
{
  int i,h=-1,j=0;
  __int64 proizv=1;
  int A[k],B[k];
  srand((unsigned)time(0));
  for (i=0;i<=14;i++)
  {
    ST:
    A[i]=rand()%100-50;
      cout<<A[i]<<endl;
    if (A[i]!=0)
    {
      h++;
      B[h]=A[i]*A[i]*A[i];
      proizv*=B[i];
    }
    else goto ST;
  }
  cout<<endl;
  cout<<"Proizvedenie kybov elementov ne = 0 ravno: "<<endl;
  cout<<proizv<<endl;
  cout<<endl;
  cout<<"Konechnii massiv: ";
    for (j=1;j<14;)
    {
      cout<<A[j]<<", ";
      FCR:
      j++;
      if (j==9)
      {
        cout<<proizv<<", ";
        goto FCR;
      }
      if (j==14)
        cout<<A[j]<<". ";
    }
    getch();
}