помогите с basic

[Yakut]

не знаю как задать условие в бейсике-
на одномерный массив-
в массиве D, состоящем из н-элементов заменить элементы массива не большие 15 их кубами, а большие нулями

на сортировку
расположить + элементы массива A(n) в конце массива по возрастанию
помогите пжлста,а то я ни разу не шарю в этом(гуманитарий)

[Xardas]

Эх... Уже второй раз заставляют меня залезать в далекие глубины своей памяти с этим Бейсиком

По поводу первого, где-то так:

//.....
for i=1 to n
if D(i)<=15 then D(i)=D(i)^3 //в Бейсике кажется есть возведение в степень, если мне память не изменяет
else D(i)=0
next i
//.......

а по поводу второго чего-то не понял смысла...

Если просто отсортировать то примерно так

//....
50 for i=2 to n
60 for j=n downto i
70 if A(j-i)<A(j) then goto 80 else goto 120
80 buf=A(j-1)
90 A(j-1)=A(j)
100 A(j)=buf
110 goto 120
120 next j
130 next i
//....

[Yakut]

спасибо за помощь а еще вроде так мона-For i = 1 To n
For j = 1 To n
If d(i) < d(j) Then
k = d(i)
d(i) = d(j)
d(j) = k
End If
Next
Next

For i = 1 To n ' вывод значений
If Text1 <> "" Then ' если текстовое поле не пусто, то делаем пробел в текстовом поле и добавляем элемент матрицы
Text1 = Text1 & " " & d(i)
Else ' иначе не делаем пробе и втсавляем занчение в начало
Text1 = d(i)
End If
Next

[Xardas]

End If

Честно говоря, не помню. Учил Бейсик в школе...

For i = 1 To n ' вывод значений
If Text1 <> "" Then ' если текстовое поле не пусто, то делаем пробел в текстовом поле и добавляем элемент матрицы
Text1 = Text1 & " " & d(i)
Else ' иначе не делаем пробе и втсавляем занчение в начало
Text1 = d(i)
End If
Next

А это к чему?

[Yakut]

честно говоря не знаю не проверял. мне на другом форуме тоже помогли и написали это))а по поводу второго задания там короче надо чтобы положит. элементы массива располагались в его конце при чем по возрастанию или чо-то типо того