AnnBel_2

DIM A(1 TO 17)
CLS
LI = 0: D = 0: M = 0
FOR I = 1 TO 17
    PRINT "A("; I; ") = ";
    INPUT "", A(I)
    IF M < A(I) THEN M = A(I)
NEXT I
INPUT "Заданное число: ", R
FOR I = 1 TO 17
    D = A(I) - R
    IF D < 0 THEN D = -D
    IF D < M THEN
        LI = I
        M = D
    END IF
NEXT I
PRINT "Элемент:";
PRINT USING "##"; A(LI)
PRINT "Индекс:"; LI