CLS
ans$ = "Y"
flagmin$ = "false"
DO
INPUT "Введите любое действительное число"; a
IF cnt = 0 THEN min = a: nmin = cnt + 1:  ELSE IF min > a AND flagmin$ = "false" THEN min = a: nmin = cnt + 1
IF min < a AND flagmin$ = "false" THEN flagmin$ = "true"
IF cnt = 0 THEN max = a: nmax = cnt + 1: tmp = a: GOTO sled
IF max < a THEN max = a: nmax = cnt + 1
IF tmp < a THEN max = a: nmax = cnt + 1
IF max >= a THEN tmp = a
sled: cnt = cnt + 1
INPUT "Желаете продолжить? Y - да, N- нет"; ans$
LOOP UNTIL ans$ = "N" OR ans$ = "n"
PRINT "Первый минимум равен "; min
PRINT "Номер минимума - "; nmin
PRINT "Последний максимум равен "; max
PRINT "Номер максимума - "; nmax
END