Question

Дан массив целых чисел. Произвести обмен 1-го и 5-го, 10-го и 15-го элементов.

Answer 1

begin

 var a := SeqGen(15, i -> i + 1).ToArray; a.Println;

 {если нужно вводить вручную, закомментируйте вторую строку

  и раскомментируйте пятую}

 //  var a := ReadArrInteger(15);

 Swap(a[0], a[4]);

 Swap(a[9], a[14]);

 a.Println;

end.