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

cls
input "razmernost massiva";n
dim a(n)
randomize timer
for i =1 to n
a(i)=INT(rnd(1)*50+1)
next i
for i = n/2 to 1 step -1
? a(i);
next i
for i = n to (n/2+1) step -1
? a(i);
next i

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

Leave a Comment