Перевести код с Pascal - C++ - Ответ 679904

#include "stdafx.h"
#include <time.h>
#include <stdlib.h>
 
# define WG 100
 
 
struct tmasi 
{
    int massiv[WG];
}a,mas;
int n,kl;
 
//procedure of input
void pr_wod(int kl,int n, tmasi mas)
{
int i;
 
system("cls");
    {
    printf("pls enter dimension of file, less or equal 100\n");
    scanf("%d", &n);
    }
    //control the value of variable
    while (n>WG)
    {
    system("cls");
    printf("\ninvalid, entered ds more 100\n");
    scanf("%d", &n);
    }
if (kl==1) printf("\nYou are not entered element of file, because it is auto value\n");
srand((unsigned) time(NULL));
for (i=1;i<(n+1);i++)
    switch(kl)
    {
        case 1:mas.massiv[i]=rand()%201-100;break;
        case 2:{
            printf("pls enter %d element of file\n", i);
            scanf("%d", &mas.massiv[i]);
            };break;
    }
}
 
//procedure of output
void pr_out(int n, tmasi mas)
{
    int i;
    for (i=1;i<(n+1);i++)
        printf("%6d\n",mas.massiv[i]);
            
}
 
//function of search negative element
int f_otr(int n, tmasi mas)
{
int i, result=0;
for (i=1;i<(n+1);i++)
    if (mas.massiv[i]<0) 
    {
    result=i;
    break;
    }
return result;
}
 
//function calculate of sum negative elevents of file
int f_sum(int n, tmasi a)
{
int i,sum=0;
for(i=1;i<(n+1);i++)
    if (mas.massiv[i]<0) sum+=mas.massiv[i];
return sum;
}
 
//function of work with negative elements
void pr_otr_el(int n, tmasi a)
{
int i,j,pos,sum;
pos=f_otr(n,a);
if (pos==0)
    {
        printf("\nIn file absent negative elements\n");
    }
sum=f_sum(n,a);
for (i=1;i<pos;i++)
    a.massiv[i]=sum;
printf("First negative element - %d\n",a.massiv[pos]);
printf("Sum of negative elements - %d\n", sum);
printf("File if reform\n");
}
 
 
 
int _tmain(int argc, _TCHAR* argv[])   
{
 
system("cls");
while (1)
{
    do
    {
        printf("1 - create file of integer numbers\n");
        printf("2 - Output elements of one-dimensional file\n");
        printf("3 - Work with negative elements of file\n");
        printf("4 - End of work\n");
        scanf("%d", &kl);
        switch (kl)
        {
            case 1:
            {
                system("cls");
                pr_wod(2,n,a);
                system("cls");
                printf("File is input\n");
            }break;
            case 2:
            {
                system("cls");
                if (n==0)
                {
                    pr_wod(1,n,a);
                }
                printf("File\n");
                pr_out(n,a);
            }break;
            case 3:
            {
                system("cls");
                pr_otr_el(n,a);
                printf("point is executed\n\n");
            }break;
            case 4:
            {
                printf("bye");getchar();
            }break;
        }
    }while ((kl>=1)&&(kl<=4));
}
return 0;
}