Необходимо написать программу в Паскале Записать - вопрос №13492631 от УмнаяВыхухоль 02.04.2023 18:17

Question

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

УмнаяВыхухоль · 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....