Демонстрация поиска максимального и минимального значений из данных( массива , типов , случайных значений).
Для тех кто столкнулся с данной задачей (например поиск пути).
SeedRnd MilliSecs()
.start
Locate 0,0
Cls
max=0
min=1000000
For y=0 To 20
c=Rnd(0,1999)
If c >= max Then max=c
If c < min Then min=c
Print "C = "+c+" | Min = "+min+" | Max = "+max
Next
WaitKey()
If KeyDown(1) Then End Else Goto start