[impersonalis]

Сообщение от polopok

max=0
min=1000000

не делай так! Такой подход имеет место только при априорном диапазоне значений элементов массива. Более общее и удобное решение:

min=v(1)
max=v(1)
for i=2 to N
if v(i)>max then max=v(i)
if v(i)<min then min=v(i)
next

Сообщение от polopok

.start

If KeyDown(1) Then End Else Goto start