Alexey N
Просветленный
(34841)
11 лет назад
p = 1
for i = 1 to size
if (not a[ i ] пустое) then я тут хз как проверять на пустоту, вернее что вы имеете в виду
a[ p ] = a[ i ]
p = p+1
end if
next
Арсен АрутюнянГуру (4688)
11 лет назад
Еще поставьте счетчик, сколько пустих элементов - K
Ну и в конце изменить размер массива: ReDim a(size - K)