Question

сделать (в бэйсике) сортировку чисел, массив (100), по убыванию и составить блок схему

Answer 1

10 DIM a(100)
15 PRINT "неотсортированный массив"
20 FOR i = 1 TO 100
30 a(i) = RND * 100
40 PRINT a(i)
50 NEXT i
60 FOR i = 1 TO 99
70 FOR j = i + 1 TO 100
80 IF a(i) > a(j) THEN GOTO 120
90 p = a(i)
100 a(i) = a(j)
110 a(j) = p
120 NEXT j
130 NEXT i
135 PRINT "отсортированный массив"
140 FOR i = 1 TO 100
150 PRINT a(i)
160 NEXT i