CLS
PRINT TAB(15); "Дана последовательность чисел, указать "
PRINT TAB(11); "отрезок числовой оси, содержащую все эти числа"
PRINT
PRINT
1 : PRINT
INPUT " Введите количество элементов... ", k
PRINT
IF k < 0 THEN
 PRINT " Введите положительное число"
 GOTO 1
END IF
DIM g(k)
PRINT " Массив "
FOR i = 1 TO k
PRINT i; "элемент массива...";
INPUT "", g(i)
NEXT
PRINT
kmin = 1
kmax = 1
FOR i = 1 TO k
IF g(i) < g(kmin) THEN kmin = i
IF g(i) > g(kmax) THEN kmax = i
NEXT i
PRINT " Границы отрезка:"
PRINT
PRINT " Нижняя граница отрезка = "; g(kmin)
PRINT " Верхняя граница отрезка = "; g(kmax)
PRINT

IF g(kmin) < 0 AND g(kmax) < 0 THEN
f = (g(kmin) * (-1) + g(kmax)) * (-1) * (-1)
END IF

IF g(kmin) < 0 AND g(kmax) > 0 THEN
f = (g(kmax) + g(kmin) * (-1))
END IF

IF g(kmin) > 0 AND g(kmax) > 0 THEN
f = (g(kmax) - g(kmin))
PRINT
END IF

PRINT " Отрезок числовой оси равен "; f