Input n -вводим количества деревьев
dim Tree(n) as integer
for i=1 to n
Tree(i)=int(rnd()*1000) -заполняем массив
next
max=Tree(1)
for i=2 to n
if Tree(i)>max then max=Tree(i) -проверка элементов массива
next
Print max -выводим максимальную
--------------------------