Дано: массив N(10), содержащий только числа от 0 до 2 и нужно их при печати упорядочить по убыванию — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
DIM a(10)
FOR i = 1 TO 10
a(i) = INT(RND * 3)
NEXT
PRINT "ishodnyj massiv"
FOR i = 1 TO 10
PRINT a(i); " ";
NEXT
PRINT
FOR i = 1 TO 10
FOR j = 2 TO 10
IF a(j) > a(j - 1) THEN SWAP a(j), a(j - 1)
NEXT
NEXT
PRINT "otsortirovannyj massiv"
FOR i = 1 TO 10
PRINT a(i); " ";
NEXT

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

Leave a Comment