Информатика! Помогите написать листинг программы!!! Задан одномерный массив Z(N) (N меньше =60). Сформировать два одномер- ных массива X и Y. Массив Х получен делением на 2 элементов массива Z, стоящих на четных местах, а масси...

Информатика! Помогите написать листинг программы!!! Задан одномерный массив Z(N) (N<=60). Сформировать два одномер- ных массива X и Y. Массив Х получен делением на 2 элементов массива Z, стоящих на четных местах, а массив Y – делением на 3 элементов массива Z, стоящих на нечетных местах. В массивах Х и У поменять местами первый и последний элементы.
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.2, сборка 1345 от 24.11.2016 // Внимание! Если программа не работает, обновите её версию! begin   var Z:=ArrRandom(ReadInteger('n='),1,99);   Writeln('Массив Z'); Z.Println;   Writeln('Массив X');   var X:=Z[1::2].Select(p->p/2).ToArray; Swap(X[0],X[X.Length-1]);   X.Println;   Writeln('Массив Y');   var Y:=Z[::2].Select(p->p/3).ToArray; Swap(Y[0],Y[Y.Length-1]);   Y.Println end. Пример n= 8 Массив Z 74 17 35 3 33 84 48 39 Массив X 19.5 1.5 42 8.5 Массив Y 16 11.6666666666667 11 24.6666666666667
Не нашли ответ?
Ответить на вопрос
Похожие вопросы