Необходимо написать программу в Паскале Записать - вопрос №13492129 от daniil0723 22.05.2022 21:47

Question

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

daniil0723 · Answer

// PascalABC.NETbegin  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....