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 ( Скачать )
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 ( Скачать )