21
правка
Изменения
→Наивная реализация на массиве
'''func''' delete(Set, key):
i = 0
'''while''' Set[2,i] < key && i < n i = 0i + 1 '''forif''' j = i < n '''toif''' i < n -1 Set[1, j] = Set[1, j + 1] Set[2, j] = Set[2, j + 1]
n = n - 1
Array.Resize(Set[2], n)
'''if''' Set[2, i] == key
'''return''' Set[1, i]
</code>
'''if''' elem == Set[1, i]
'''return''' Set[1, i - 1]
</code>
'''if''' elem == Set[1, i]
'''return''' Set[1, i + 1]
</code>
