Создать программу получения и обработки одномерного массива – вектора:
Вычислить среднегеометрическое значение положительных элементов всего массива.

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016begin  var n:=ReadInteger('Введите количество элементов:');  var a:=ReadArrReal('Введите данные:',n).Where(x->x>0).ToArray;  Writeln('Среднегеометрическое положительных элементов равно ',    power(a.Where(x->x>0).Aggregate(1.0,(x,y)->x*y),1/a.Length))end.ПримерВведите количество элементов: 7Введите данные: 3.2 -3 4 0 6.1 5 -2Среднегеометрическое положительных элементов равно 4.44505820618421