Question

ПОМОГИТЕ ПОЖАЛУЙСТА ДО ЗАВТРА ОЧЕНЬ НАДО!!!!!!!!!!!!!

Answer 1

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          -выводим максимальную

--------------------------