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

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

Пример
Введите количество элементов: 7
Введите данные: 3.2 -3 4 0 6.1 5 -2
Среднегеометрическое положительных элементов равно 4.44505820618421