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

Ответы 1

  • // 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.Printlnend.Примерn= 8Массив Z74 17 35 3 33 84 48 39Массив X19.5 1.5 42 8.5Массив Y16 11.6666666666667 11 24.6666666666667
    • Автор:

      isaias
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years