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

10 DIM a (100) 15 PRINT «неотсортированный массив"20 FOR i=1 TO 10030 a (i)=RND*10040 PRINT a (i) 50 NEXT i60 FOR i=1 TO 9970 FOR j=i+1 TO 10080 IF a (i) > a (j) THEN GOTO 12090 p=a (i) 100 a (i)=a (j) 110 a (j)=p120 NEXT j130 NEXT i135 PRINT «отсортированный массив"140 FOR i=1 TO 100150 PRINT a (i) 160 NEXT i