Линейные массивы

CLS : INPUT "Vvedite kol-vo chisel: ", n
PRINT "Vvedite otrezok [c, d]"
INPUT "  Vvedite c: ", c
INPUT "  Vvedite d: ", d
  FOR i = 1 TO n
    INPUT "Vvedite chislo", a
    IF a >= c AND a <= d THEN
     s$ = s$ + "Element nomer" + STR$(i) + " =" + STR$(a) + CHR$(13)
    END IF
  NEXT
CLS : PRINT s$

 CONST N = 10
 DIM A(N)
   DATA 1.1,  2, -10.4, 6, 3.5
   DATA  10, -4,    10, 2,   4
CLS
  FOR i = 1 TO N
     READ A(i): PRINT A(i);
  NEXT
    Max = A(1)
  FOR i = 1 TO N
     IF A(i) > Max THEN Max = A(i): k = i
  NEXT
  A(k) = 0: PRINT
  FOR i = 1 TO N
     PRINT A(i);
  NEXT

CLS
INPUT "vvedite n"; n
DIM a(n)
FOR i = 1 TO n
    PRINT "vvedite a("; i; ")";
    INPUT a(i)
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
max = a(1)
FOR i = 1 TO n
    IF a(i) > max THEN max = a(i)
NEXT
FOR i = 1 TO n
    IF ABS(a(i)) > max THEN a(i) = 0
NEXT
PRINT: PRINT STRING$(n * 5, 196)
FOR i = 1 TO n
    PRINT a(i);
NEXT

CLS
INPUT "vvedite n"; n
INPUT "vvedite b"; b
DIM a(n), b(n + 1)
FOR i = 1 TO n
    PRINT "vvedite a("; i; ")";
    INPUT a(i)
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
FOR i = 1 TO n
    IF (a(i - 1) <= b AND a(i) > b) AND (f = 0) THEN b(i) = b: f = 1
    b(i + f) = a(i)
NEXT
PRINT: PRINT STRING$(80, 196)
FOR i = 1 TO n + 1
    PRINT b(i);
NEXT

CLS
INPUT "  Vvedite kol-vo chisel: ", n
DIM a(n + 1)
    ' Генерируем случайно (ввод можно заменить)
    RANDOMIZE TIMER
  FOR i = 1 TO n
    a(i) = RND * 30
    PRINT a(i),    'Выводим для просмотра
  NEXT
    ' Запрашиваем число
  INPUT "  Vvedite chislo b: ", a(n + 1)
    ' Сортировка
  FOR j = n TO 1 STEP -1: FOR i = 1 TO j
    IF a(i) > a(i + 1) THEN SWAP a(i), a(i + 1)
  NEXT: NEXT
    ' Вывод
  FOR i = 1 TO n + 1
    PRINT a(i),
  NEXT

CLS
INPUT "vvedite n"; n
INPUT "vvedite b"; b
DIM a(n + 1)
FOR i = 1 TO n
    PRINT "vvedite a("; i; ")";
    INPUT a(i)
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
DO WHILE a(i - 1) > b AND i - 1 > 0
    i = i - 1: f = f + 1
    SWAP a(n - f + 2), a(n - f + 1)
LOOP
a(i) = b
PRINT: PRINT STRING$(80, 196)
FOR i = 1 TO n + 1
    PRINT a(i);
NEXT

WIDTH 80, 50
INPUT "  Vvedite kol-vo chisel: ", n
DIM a(n + 1)
    ' Ввод данных
  FOR i = 1 TO n
    PRINT "Chislo N" + CHR$(248); i; "= "; : INPUT "", a(i)
  NEXT
    ' Запрашиваем число
  INPUT "  Vvedite chislo b: ", b
    ' Сдвиг всего массива и вставка числа
  FOR i = n TO 1 STEP -1
    IF a(i) > b THEN a(i + 1) = a(i) ELSE EXIT FOR
  NEXT: a(i + 1) = b
    ' Вывод
  FOR i = 1 TO n + 1
    PRINT a(i)
  NEXT

INPUT "vvedite n"; n: DIM a(n + 1)
FOR i = 1 TO n
    PRINT "vvedite"; i; "element";: INPUT a(i)
NEXT: INPUT "vvedite b"; b
DO WHILE a(i - 1) > b AND i - 1 > 0
    i = i - 1: SWAP a(i + 1), a(i)
LOOP: a(i) = b
FOR i = 1 TO n + 1
    PRINT a(i);
NEXT

INPUT "  Kol-vo chisel: ", n: DIM a(n + 1): FOR i = 1 TO n: PRINT "Vvedite"; i; "chislo"; : INPUT a(i): NEXT: INPUT "  Vvedite chislo b: ", b: FOR i = n TO 1 STEP -1: IF a(i) > b THEN a(i + 1) = a(i) ELSE EXIT FOR
NEXT: a(i + 1) = b: FOR i = 1 TO n + 1: PRINT a(i); : NEXT

INPUT "vvedite n"; n: DIM a(n + 1): FOR i = 1 TO n: PRINT "vvedite"; i; "element";: INPUT a(i): NEXT: INPUT "vvedite b"; b: DO WHILE a(i - 1) > b AND i - 1 > 0: i = i - 1: SWAP a(i + 1), a(i): LOOP: a(i) = b: FOR i = 1 TO n + 1: PRINT a(i);: NEXT