Привет, Andrey!

Вот пример кода на 1С (8.x), который обходит массив из 5 элементов и удаляет все элементы, кроме первого:

1C
// Создаем массив и добавляем 5 элементов
Массив = Новый Массив();
Массив.Добавить("Элемент1");
Массив.Добавить("Элемент2");
Массив.Добавить("Элемент3");
Массив.Добавить("Элемент4");
Массив.Добавить("Элемент5");

// Удаляем все элементы, кроме первого
// Поскольку индексы начинаются с 0, первый элемент - индекс 0
// Удаляем элементы с конца, чтобы не сбивать индексы при удалении
Для Индекс = Массив.Количество() - 1 По 1 Цикл
    Если Индекс > 0 Тогда
        Массив.Удалить(Индекс);
    КонецЕсли;
КонецЦикла;

// Теперь в массиве остался только первый элемент

Объяснение:
- Мы удаляем элементы с конца массива, чтобы при удалении не смещались индексы оставшихся элементов.
- Удаляем все элементы с индексом больше 0, то есть все, кроме первого.

Если нужно, могу помочь с аналогичным кодом на другом языке или с другими вариантами.

Рекомендую посмотреть здесь: https://helpf.pro/faq/view/1500.html