#1TASK
CLS
DIM a(1 TO 20)
FOR i = 1 TO 20
    INPUT "set values of array a(i)", a(i)
NEXT
DIM b(1 TO 20)
FOR i = 1 TO 20
    INPUT "set values of array b(i)", b(i)
NEXT
min = a(1): minposA = 1
PRINT "massiv 1: ";
FOR i = 2 TO 20
    IF a(i) < min THEN minposA = i
    PRINT a(i);
NEXT
PRINT "": PRINT "massiv 2: "
min = b(1): minposB = 1
FOR i = 2 TO 20
    IF b(i) < min THEN minposB = i
    PRINT b(i);
NEXT
PRINT "MIN=";
IF minposA < minposB THEN PRINT minposA ELSE PRINT minposB
END

#2TASK #нужно вводить массив в ручную для наглядности, элементы массива А должны быть меньше В (напр от 2 до 21 и от 1 до 20), чтобы сработало условие!!! 
Так же необходимо указать число сложения n(я брал 2) и сделать хоть один элемент массива отрицательным(я делал -3 в В) (по усл) 
CLS
PRINT "input n": INPUT n
DIM a(1 TO 20)
FOR i = 1 TO 20
    INPUT "set values of array a(i)", a(i)
NEXT
DIM b(1 TO 20)
FOR i = 1 TO 20
    INPUT "set values of array b(i)", b(i)
NEXT
DIM c
FOR i = 1 TO 20
    IF a(i) > b(i) THEN a(i) = a(i) + n
    b(i) = b(i) + n
NEXT
PRINT "array a":
FOR i = 1 TO 20
    PRINT a(i);
NEXT
PRINT "array b":
FOR i = 1 TO 20
    PRINT b(i);
NEXT
PRINT "": PRINT "mass 1: "
max = a(1): maxposA = 1
FOR i = 1 TO 20
    IF a(i) > max THEN maxposA = i
    PRINT a(i);
NEXT
PRINT "": PRINT "mass 2: "
max = b(1): maxposB = 1
FOR i = 1 TO 20
    IF b(i) > max THEN maxposB = i
    PRINT b(i);
NEXT
FOR i = 1 TO 20
    IF a(i) < 0 OR b(i) < 0 THEN z = z + 1 ELSE c = c + a(i) + b(i)
NEXT
PRINT "negative"; z
PRINT "summpos"; c
PRINT "NUMMAX=": PRINT maxposA; "and"; maxposB
END

#3TASK
CLS
PRINT "set N"
INPUT n
DIM R(n)
FOR i = 1 TO n
    PRINT "set element of R #"; i;
    INPUT R(i)
NEXT
min = R(1)
max = R(1)
FOR i = 1 TO n
    IF R(i) < min THEN min = R(i): Nmin = i
    IF R(i) > max THEN max = R(i): Nmax = i
NEXT
PRINT "quantity of elements="; n
PRINT "Old array"
FOR i = 1 TO n
    PRINT R(i); " ";
NEXT
PRINT
PRINT "max="; max
PRINT "min="; min
PRINT "new array"
FOR i = 1 TO n
    IF i <> min AND i <> max THEN k = k + 1: R(k) = R(i): PRINT R(k);
NEXT
END

#TASK4#ВОЗМОЖНО ТАБЛИЧКА ПОПОЛЗЛА :/
CLS
DIM A(1 TO 10)
DIM B(1 TO 10)
DIM C(1 TO 10)
DIM D(1 TO 10)
FOR i = 1 TO 10
    INPUT "set values of array A", A(i)
    INPUT "set values of array B", B(i)
    INPUT "set values of array C", C(i)
NEXT
FOR i = 1 TO 10
    IF C(i) > B(i) - A(i) THEN
        D(i) = (C(i) / 2)
    ELSE D(i) = C(i)
    END IF
NEXT
PRINT ""
PRINT "## "; "array 1  "; " array 2 "; "           "; " array 3 "
PRINT "  "; "       "; "       "; "                OLD "; "    "; " NEW"
FOR i = 1 TO 10
    PRINT i; "   "; A(i); "     "; B(i); "            "; C(i); "    "; D(i)
NEXT
max = D(1): maxposD = 1
FOR i = 1 TO 10
    IF D(i) > max THEN maxposD = i
NEXT
PRINT "IMAX = "; maxposD
FOR i = 1 TO maxposD
    summ = summ + D(i)
NEXT
PRINT "S ="; summ
END

#TASK5
CLS
DIM u(20)
u(1) = 1
u(2) = 2
FOR i = 3 TO 20
    u(i) = u(i - 1) + u(i - 2)
NEXT
PRINT "numbers of fibonachchi"
FOR i = 1 TO 20
    PRINT u(i); " ";
NEXT
PRINT
PRINT "div"
FOR i = 3 TO 20
    PRINT u(i) / u(i - 1); " ";
NEXT
END