Написать массив в обратном порядке — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
INPUT"vvedite kol-vo chisel ",n
RANDOMIZE TIMER
DIM a(n)
FOR i=1 TO n
a(i)=INT(RND*20)-10
NEXT
PRINT"massiv"
FOR i=1 TO n
PRINT a(i);
NEXT
PRINT
FOR i=1 TO n\2
SWAP a(i),a(n-i+1)
NEXT
PRINT"massiv v obratnom poryadke"
FOR i=1 TO n
PRINT a(i);
NEXT

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

Leave a Comment