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

Категория: Basic
2011-11-02 13:56:43
code: #basic
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

автор: кот Бегемот

Поделиться:

Похожие статьи:

теги: массив, одномерный массив, студенты, сортировка, qbasic, сортировка по убыванию, упорядочить по убыванию