Срочно написать программу в паскале! Упорядочить массив в интервале от i1 до i2 по убыванию
Answers & Comments
conikx1
Sub test() 'массив и диапазон для примера m = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9) i1 = 2 'с 3-го злемента (0,1,2) i2 = 7 'по восьмой 'собственно, сам алгоритм For x = i1 To i2 - 1 For y = x + 1 To i2 If m(x) < m(y) Then tmp = m(x): m(x) = m(y): m(y) = tmp Next y, x MsgBox Join(m, ";") 'это просто проверка End Sub Надеюсь помог
0 votes Thanks 0
Анилай
а как сделать так, чтобы самому указывать диапазон?
Answers & Comments
'массив и диапазон для примера
m = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
i1 = 2 'с 3-го злемента (0,1,2)
i2 = 7 'по восьмой
'собственно, сам алгоритм
For x = i1 To i2 - 1
For y = x + 1 To i2
If m(x) < m(y) Then tmp = m(x): m(x) = m(y): m(y) = tmp
Next y, x
MsgBox Join(m, ";") 'это просто проверка
End Sub
Надеюсь помог