#include <iostream>
#include <iomanip>
#include <fstream>
#include <cstdlib>
#include <cstddef>
using namespace std;
double *inputvf(ifstream &f,int n, char s[40]);
void outputvf(ofstream &f,double *a, int n, char s[40]);
double proizv(double* a,int n);
void outputv(double* a,int n);
void suma(double* x,int n,double& S,int& k,int& l);
void main()
{setlocale(LC_ALL,"Russian");
 double *b,p;
 char str[40],str1[40];
 ifstream f;
 ofstream f1;
 int n=8,k,l;
 cout<<"\n Ввести имя файла чтения вектора b: \n";
cin>>str;
b=inputvf(f,n,str);
cout<<"\nВектор b:\n";
outputv(b,n);
suma(b,n,p,k,l);
cout<<"\n Индекс первого положительного элемента= "<<k;
cout<<"\n Индекс последнего положительного элемента= "<<l;
cout<<"\n Сумма элементов между первым и последним положительными элементами в векторе b= "<<p;
cout<<endl;
}
void outputv(double* a,int n)
{int i;
for(i=0;i<n;i++)
{if(i%8==0)cout<<endl;
cout<<setw(5)<<a[i];
}
}
double *inputvf(ifstream &f,int n, char s[40])
{//Объявление указателей и перемнных
 int i; 
 double *a;
 //Выделение ОП под вектор
 a=new double [n];
   if(a==NULL){cout<< "\n Не хватает оперативной памяти под вектор";
               exit(1);
              }
 //Открытие файла для чтения
 f.open (s);
 //Проверка успешности открытия файла для чтения
   if (f.fail()) {cout<<"\n Ошибка открытия файла";
	          exit(1);
                 }
   for(i=0;i< n;i++)
      f>>a[i];
 //Закрытие файла
 f.close();
 return a;
}
void outputvf(ofstream &f,double *a, int n, char s[40])
{//Объявление перменных
 int i;
 //Открытие файла
 f.open(s);
 //Проверка успешности открытия файла
   if (f.fail()) {cout<<"\n Ошибка открытия файла";
	          exit(1);
                 }
  for(i=0;i< n;i++)
   {f<< endl;
    f<< setw(10)<< a[i];
   }
 //Закрытие файла
 f.close();
}
double proizv(double* a,int n)
{int i;
 double p=1;
 for(i=0;i<n;i++)
	 if (a[i]<0) p=p*a[i];
 return p;
}
void suma(double* x,int n,double& S,int& k,int& l)
{int i;
  for(i=0;i< n;i++)
   {if(x[i]>0) {k=i;
                break;
               }
   }
  for(i=n-1;i>=0;i--)
   {if(x[i]>0) {l=i;
                break;
               }
   }
 S=0;
  for(i=k+1;i<=l-1;i++)
   S=S+x[i];
}