Необходимо написать программу в Паскале Записать пять первых положительных элементов...

Question

Необходимо написать программу в Паскале Записать пять первых положительных элементов массива Х=(х1,…,х12) подряд в массив Y=(y1,у2,…,у5). Вычислить среднее геометрическое значение элементов массива Y.

Answer 1

// PascalABC.NET

begin

 var a := ArrRandom(12, -10, 30);

 a.Println;

 var y := a.Where(p -> p > 0).Take(5).ToArray;

 var n := y.Length;

 Print(y.Product ** (1 / n))

end.