Необходимо написать программу в Паскале Записать - вопрос №13492631 от asylzhan1977 09.09.2022 03:35

Question

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

asylzhan1977 · 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....