Сообщений: 182
Написано 51 полезных сообщений (для 71 пользователей)
Поиск Min & Max значений в переборе
Демонстрация поиска максимального и минимального значений из данных( массива , типов , случайных значений).
Для тех кто столкнулся с данной задачей (например поиск пути).
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
Сообщений: 182
Написано 51 полезных сообщений (для 71 пользователей)
Ответ: Поиск Min & Max значений в переборе
Да ладно вам стебаться ,я конечно не открыл Америку .
impersonalis , естественно твой вариант лучше .
Думаю ,всё же лучше для некоторых видеть готовое решение ,чем самому ломать голову.