Преобразовать массив так, чтобы элементы массива с нечетными и четными индексами поменялись местами (первый – со вторым, третий – с четвертым и т.д.).- QBasic(Бейсик)

CLS
Again: INPUT "Vvedite razmer massiva:", n
n = (n \ 2) * 2
IF n <= 0 GOTO Again
PRINT "Razmer massiva preobrazovan k chetnomu chislu i raven "; n
DIM M%(n)
   ' Заполним массив и на экран его
   RANDOMIZE TIMER
FOR i = 1 TO n
  M%(i) = RND * 21 - 10
  PRINT M%(i);
NEXT i: PRINT
  '  Меняем эл-ты
FOR i = 2 TO n STEP 2
  SWAP M%(i), M%(i - 1)
NEXT i
  '  Вывод
FOR i = 1 TO n
  PRINT M%(i);
NEXT i

Тестирование выполнено в программе QB64 ( Скачать )

Преобразовать массив так, чтобы элементы массива с нечетными и четными индексами поменялись местами (первый – со вторым, третий – с четвертым и т.д.).- QBasic(Бейсик)

Похожие записи/страницы:

Leave a Comment