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

Question

Информатика

Робе

20 февраля, 18:29

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

+4

Ответы (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.