Доброго дня!

Удаляю элементы массива М, причем все четные добавленные элементы:

Процедура Сделать(Команда)
    М=Новый Массив;
    Удаляем = Новый Массив;
    Для Сч = 1 по 10 Цикл
        
        М.Добавить(Сч*100);
        
    КонецЦикла;
    
    Для Сч = 1 По М.Количество() Цикл
    
        Если Сч%2 = 0 Тогда
            
            Удаляем.Добавить(Сч -1);
            
        КонецЕсли;        
    
    КонецЦикла;
    
    Для Сч = 1 по Удаляем.Количество() Цикл
        НахождениеМаксЗн = Удаляем[Удаляем.Количество()-1];
        М.Удалить(НахождениеМаксЗн);
        Удаляем.Удалить(Удаляем.Количество()-1);
    КонецЦикла;
    
КонецПроцедуры

по моему это можно сделать проще, не?

????

А нельзя с конца пробежаться по массиву и удалить все, что %2???

А просто добавить нужные элементы в новый массив?

(3) +1

(0) Ужас, иди с конца.
Либо при удалении не двигай счетчик вперед.

"Код из разряда ГУАНО.", перепиши :)
...при удалении элемента массива, все следующие по порядку, как бы сдвигаются...

(3) Да как ты посмел такое предложить? Надо оперативу экономить. Кризис в стране как никак...

(6) В какой стране? В России нормально. :)

так заработало:
    М=Новый Массив;
    Для Сч = 1 по 10 Цикл
        
        М.Добавить(Сч*100);
        
    КонецЦикла;
    А = 0;
    Для Сч = 1 По М.Количество() Цикл
        
        Если Сч%2 = 0 Тогда
            А = 1+А;
            М.Удалить(М.Количество()-1-А);
            
        КонецЕсли;        
    
    КонецЦикла;

есть более красивый вариант?

(9) Слушай (3) или купи гуся

(9) Последнее время все чаще появляются такие вопросы. Может ВР-у создать раздел "Для эстетов"?

Уже предлагали более красивые варианты.
Самый простой и эффективный - в (3).

Если таки нужен обход с конца, я типа такого пишу:
Для ОтрицательныйИндекс = -М.Количество + 1 По 0 Цикл
   а = М[-ОтрицательныйИндекс];
КонецЦикла;

(0)
Всего = М.ВГраница();
Для Сч = -Всего По 0  Цикл
    Если Сч%2=-1 Тогда
        М.Удалить(-Сч)
    КонецЕсли;
КонецЦикла;

спасибо!

на 3 минуты делов:

?
&НаКлиенте
Процедура Команда1(Команда)
    Массив = МассивСлучайных(20);    
    Сообщить("Исходный");
    СообщитьМассив(Массив);
    Четные = МассивФильтровать(Массив, "Четное");
    Сообщить("Четные");
    СообщитьМассив(Четные);
    Нечетные = МассивФильтровать(Массив, "Нечетное");
    Сообщить("Нечетные");
    СообщитьМассив(Нечетные);
КонецПроцедуры

&НаКлиенте
Процедура СообщитьМассив(Знач Масс)
    Для Каждого зз из Масс Цикл
        Сообщить(зз);
    КонецЦикла;
КонецПроцедуры

&НаКлиенте
Функция МассивСлучайных(Сколько=10)
    _гсч=Новый ГенераторСлучайныхЧисел;
    _м=Новый Массив();
    Для ии=1 по Сколько Цикл
        _м.Добавить(_гсч.СлучайноеЧисло(0,100));
    КонецЦикла;
    Возврат _м;
КонецФункции

&НаКлиенте
Функция МассивФильтровать(Знач Исходный, Знач ФильтрФ)
    _м = Новый Массив;
    Для Каждого зз Из Исходный Цикл
        Если Вычислить(ФильтрФ + "(зз)") Тогда
            _м.Добавить(зз);
        КонецЕсли;
    КонецЦикла;
    Возврат _м;
КонецФункции

&НаКлиенте
Функция Четное(к)
    Возврат 0 = к % 2;
КонецФункции

&НаКлиенте
Функция Нечетное(к)
    Возврат 1 = к % 2;
КонецФункции

(15) Вот она истинная красота!

Подчеркивания глаза режут. В чем их смысл?

(15) (17) у Асмодея мозги не под 1С заточены. Инфа 100%

И насчет "Знач" и Вычислить() - я бы не стал.

(18) Как в том анекдоте, чтобы руку не сбивать? :)

(19) В чем проблема со Знач?
А Вычислить() — ну нельзя в 1С саму функцию передать, приходится выворачиваться. А это хоть и кривой, но самый быстрый и понятный способ реализации.

(17) Еще один эстет?

(21) Стрёмно коллекции по Знач передавать. Ну а Вычислить() - это такая вундервафля, которую лучше без крайней необходимости не использовать.
(22) Да. В человеке всё должно быть прекрасно - погоны, кокарда, исподнее.