МассивЭлементов.Удалить(0); 
Индекс = МассивЭлементов.ВГраница();
Пока Индекс >= 0 Цикл 
   Если ТипЗнч(МассивЭлементов[Индекс]) = Тип("Число") Тогда 
      МассивЭлементов.Удалить(Индекс); 
   КонецЕсли; 
   Индекс = Индекс - 1; 
КонецЦикла;