м#include<iostream>
#include<iomanip>
#include <cmath>
using namespace std;
//Прототип функции для ввода вектора
void inputv(double x[],int n);
//Прототип функции для вывода вектора
void outputv(double x[],int n);
//Прототип для поиска максимальной(по модулю) координаты
void maxi(double x[],int n,double& p, int& k);
//Главная функция
void main ()
{//Руссификация
setlocale(LC_ALL,"Russian");
//Объявляем векторы и переменные
double a[11],p;
int k;
//Ввод вектора x
cout<<"\n Ввести через пробел координаты вектора a \n";
inputv(a,11);
//Вывод вектора x
cout<<"\n***вектор x***\n";
outputv(a,11);
//Поиск максимального( по модулю) элемента 
maxi(a,11,p,k);
cout<<"\n Максимальная по модулю координата вектора x="<<p;
cout<<"\nЕе индекс="<<k;
cout<<endl;
}
//Определение функции для ввода 
void inputv(double x[], int n)
{//Объявляем переменные
int i;
//Ввод
for (i=0;i<n;i++)
{cout<<"\n x["<<i<<"]=";
cin>> x[i];
}
}
//Определение функции для вывода вектора
void outputv (double x[], int n)
{//Объявляем переменную
int i;
//Вывод
for (i=0;i<n;i++)
{if (i%7==0) cout<<endl;
cout<<setw(10)<<x[i];
}
}
//Определение функции для поиска максимальной (по модулю) координаты 
void maxi(double x[], int n, double& p, int& k)
{//Объявляем переменные
int i;
//Вычисления
p=fabs(x[0]);
 k=0;
for (i=1;i<n;i++)
{if (fabs(x[i])>p) {p=fabs(x[i]);
				    k=i;
                   }
}
p=-p;
}