DIM a(17)
RANDOMIZE TIMER
FOR i = 1 TO 17
a(i) = INT(RND * 20) - 10
NEXT
INPUT "vvedite chislo ", n
PRINT "ishodnyj massiv"
FOR i = 1 TO 17
PRINT a(i); " ";
NEXT
PRINT
PRINT "chislo="; n
min = ABS(n - a(1))
nmin = 1
FOR i = 1 TO 17
IF ABS(n - a(i)) < min THEN min = ABS(n - a(i)): nmin = i
NEXT
PRINT "blizkiy element="; a(nmin)
PRINT "ego nomer="; nmin