Как вывести минимальное значение из чисел qbasic

Question

Как вывести минимальное значение из чисел qbasic

Answer 1

INPUT "N="; N
FOR I = 1 TO N
    INPUT X
    IF I = 1 THEN MIN = X
    IF X < MIN THEN MIN = X
NEXT I
PRINT "MIN="; MIN