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

Question

Информатика

Кенгер

1 мая, 11:19

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

+5

Ответы (1)

Знаете ответ на вопрос?

Айра · 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.