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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
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