Если число Х встречается в последовательности, то упорядочить по не возрастанию часть последовательности до последнего вхождения Х — Basic(Бейсик)

disel
      1
      2
      3
      4
      5
      6
      7
      8
      9
      10
      11
      12
      13
      14
      15
      16
      17
      18
      19
      20
      21
      22
      23
      INPUT"vvedite kol-vo elementov ",n
      DIM a(n)
      RANDOMIZE TIMER
      PRINT"posledovatelnost"
      FOR i=1 TO n
      a(i)=INT(RND*20)
      PRINT a(i);
      NEXT
      PRINT
      INPUT"vvedite chislo X ",x
      FOR i=1 TO n
      IF a(i)=x THEN k=i
      NEXT
      IF k=0 THEN PRINT"chislo x ne vstrchaetsya":END
      FOR i=1 TO k-1
      FOR j=2 TO k-1
      IF a(j)>a(j-1)THEN SWAP a(j),a(j-1)
      NEXT
      NEXT
      PRINT"novaya posledovatelnost"
      FOR i=1 TO n
      PRINT a(i);
      NEXT

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

      Leave a Comment