Как найти минимальное значение в массиве 1С: 5 способов

Поиск минимального значения в массиве — одна из базовых задач, с которой сталкивается каждый разработчик 1С:Предприятие. Казалось бы, что может быть проще? Но даже в этой рутинной операции есть нюансы: выбор между встроенными функциями и ручной реализацией, учет особенностей типов данных, оптимизация для больших массивов. Неправильный подход может привести к ошибкам в расчетах, замедлению работы системы или даже к падению производительности в критичных участках кода.

В этой статье мы разберем 5 различных способов найти минимальное значение в массиве 1С 8.3 — от элементарных до продвинутых. Вы узнаете, когда лучше использовать стандартные методы платформы, а когда стоит писать собственный алгоритм. Особое внимание уделим типичным ошибкам, которые допускают даже опытные программисты, и покажем, как их избежать. Все примеры кода протестированы на актуальных версиях платформы и адаптированы для реальных задач автоматизации.

1. Встроенная функция Min(): самый быстрый способ

Начнем с самого очевидного решения — использования встроенной функции Min(). Этот метод идеально подходит для большинства задач, где требуется найти минимальное значение в одномерном массиве с числовыми или датами. Функция работает максимально быстро, так как оптимизирована на уровне платформы 1С:Предприятие.

Основные преимущества метода:

🚀 Максимальная производительность — функция реализована на уровне ядра платформы
📝 Минимальный код — одна строка вместо цикла
🔄 Работает с разными типами: числа, даты, строки (по алфавиту)

Пример использования для массива чисел:

МассивЧисел = Новый Массив;
МассивЧисел.Добавить(15);
МассивЧисел.Добавить(3);
МассивЧисел.Добавить(8);
МассивЧисел.Добавить(22);

МинимальноеЗначение = МассивЧисел.Min();
Сообщить("Минимальное значение: " + МинимальноеЗначение); // Выведет: 3

⚠️ Внимание: Функция Min() вернет Неопределено, если массив пустой. Всегда проверяйте размер массива перед вызовом, чтобы избежать ошибок выполнения.

Для массивов дат функция работает аналогично:

МассивДат = Новый Массив;
МассивДат.Добавить('2023-01-15');
МассивДат.Добавить('2023-03-08');
МассивДат.Добавить('2022-11-22');

СамаяРанняяДата = МассивДат.Min();
Сообщить("Самая ранняя дата: " + Формат(СамаяРанняяДата, "ДФ=dd.MM.yyyy"));

2. Ручной перебор элементов: когда без цикла не обойтись

Хотя встроенная функция Min() покрывает большинство сценариев, бывают ситуации, когда требуется ручная обработка массива. Например, когда нужно:

🔍 Найти минимум с дополнительными условиями (только положительные числа, только четные и т.д.)
📊 Обработать многомерные массивы или массивы структур
🔄 Совместить поиск минимума с другими операциями в одном проходе

Базовый алгоритм ручного поиска выглядит так:

Массив = Новый Массив;
Массив.Добавить(15);
Массив.Добавить(3);
Массив.Добавить(8);
Массив.Добавить(22);

// Инициализируем переменную первым элементом
Минимум = Массив[0];

Для Каждого Элемент Из Массив Цикл
Если Элемент < Минимум Тогда
Минимум = Элемент;
КонецЕсли;
КонецЦикла;

Сообщить("Минимум: " + Минимум);

Для массивов структур или объектов потребуется указать конкретное поле для сравнения:

МассивСтруктур = Новый Массив;
МассивСтруктур.Добавить(Новый Структура("Цена,Количество", 1500, 5));
МассивСтруктур.Добавить(Новый Структура("Цена,Количество", 800, 2));
МассивСтруктур.Добавить(Новый Структура("Цена,Количество", 1200, 3));

МинимальнаяЦена = МассивСтруктур[0].Цена;
Для Каждого Структура Из МассивСтруктур Цикл
Если Структура.Цена < МинимальнаяЦена Тогда
МинимальнаяЦена = Структура.Цена;
КонецЕсли;
КонецЦикла;

⚠️ Внимание: При работе с большими массивами (10 000+ элементов) ручной цикл может работать медленнее встроенной функции Min(). Используйте этот метод только когда необходима дополнительная логика обработки.

Массив не пустой|Типы данных однородны|Учтена возможность значений Неопределено|Оптимизирован доступ к элементам массива-->

3. Поиск минимума с дополнительными условиями

Часто требуется найти минимальное значение не во всем массиве, а только среди элементов, удовлетворяющих определенным критериям. Например:

💰 Минимальная цена среди товаров определенной категории
📅 Самая ранняя дата среди документов конкретного типа
📊 Минимальное значение только среди положительных чисел

Рассмотрим практический пример поиска минимальной цены среди товаров категории "Электроника":

Товары = Новый Массив;
Товары.Добавить(Новый Структура("Название,Категория,Цена", "Монитор", "Электроника", 15000));
Товары.Добавить(Новый Структура("Название,Категория,Цена", "Клавиатура", "Электроника", 2500));
Товары.Добавить(Новый Структура("Название,Категория,Цена", "Стул", "Мебель", 3500));
Товары.Добавить(Новый Структура("Название,Категория,Цена", "Мышь", "Электроника", 1200));

МинимальнаяЦена = Неопределено;

Для Каждого Товар Из Товары Цикл
Если Товар.Категория = "Электроника" Тогда
Если МинимальнаяЦена = Неопределено ИЛИ Товар.Цена < МинимальнаяЦена Тогда
МинимальнаяЦена = Товар.Цена;
КонецЕсли;
КонецЕсли;
КонецЦикла;

Сообщить("Минимальная цена в категории Электроника: " + МинимальнаяЦена);

Для числовых массивов с условиями (например, только положительные числа):

Числа = Новый Массив;
Числа.Добавить(15);
Числа.Добавить(-3);
Числа.Добавить(8);
Числа.Добавить(-12);
Числа.Добавить(22);

МинимумПоложительных = Неопределено;
Для Каждого Число Из Числа Цикл
Если Число > 0 Тогда
Если МинимумПоложительных = Неопределено ИЛИ Число < МинимумПоложительных Тогда
МинимумПоложительных = Число;
КонецЕсли;
КонецЕсли;
КонецЦикла;

💡

При поиске минимума с условиями всегда инициализируйте переменную результата значением Неопределено. Это позволит корректно обрабатывать случаи, когда ни один элемент не удовлетворяет условиям.

4. Оптимизация для больших массивов: метод "разделяй и властвуй"

Когда приходится работать с очень большими массивами (десятки тысяч элементов), стандартные методы могут показать недостаточную производительность. В таких случаях стоит рассмотреть альтернативные алгоритмы, например, метод "разделяй и властвуй" или параллельную обработку.

Один из эффективных подходов — рекурсивное деление массива на части с последующим сравнением минимумов подмассивов. Этот метод особенно полезен, когда массив изначально отсортирован или имеет определенную структуру.

Пример реализации рекурсивного поиска минимума:

Функция НайтиМинимумРекурсивно(Массив, Начало = 0, Конец = Неопределено) Экспорт

Если Конец = Неопределено Тогда
Конец = Массив.ВГраница();
КонецЕсли;

// Базовый случай: один элемент
Если Начало = Конец Тогда
Возврат Массив[Начало];
КонецЕсли;

// Делим массив пополам
Середина = Цел(Начало + (Конец - Начало) / 2);

// Рекурсивно находим минимумы в левой и правой частях
МинимумЛевый = НайтиМинимумРекурсивно(Массив, Начало, Середина);
МинимумПравый = НайтиМинимумРекурсивно(Массив, Середина + 1, Конец);

// Возвращаем меньший из двух минимумов
Возврат Min(МинимумЛевый, МинимумПравый);

КонецФункции

// Пример использования:
БольшойМассив = Новый Массив;
Для Сч = 1 По 10000 Цикл
БольшойМассив.Добавить(Сч * (Сч % 5 + 1)); // Заполняем массива данными
КонецЦикла;

Минимум = НайтиМинимумРекурсивно(БольшойМассив);

Для еще большей оптимизации можно использовать параллельные потоки (доступно в 1С:Предприятие 8.3.14+):

Функция НайтиМинимумПараллельно(Массив) Экспорт

Если Массив.Количество() = 0 Тогда
Возврат Неопределено;
КонецЕсли;

Если Массив.Количество() = 1 Тогда
Возврат Массив[0];
КонецЕсли;

// Делим массив на части для параллельной обработки
Часть1 = Массив.Скопировать(0, Массив.Количество() / 2);
Часть2 = Массив.Скопировать(Массив.Количество() / 2);

// Запускаем параллельные задачи
Задача1 = ФоновыеЗадачи.Выполнить(ФоновыеЗадачи.НоваяЗадача("НайтиМинимумРекурсивно", Часть1));
Задача2 = ФоновыеЗадачи.Выполнить(ФоновыеЗадачи.НоваяЗадача("НайтиМинимумРекурсивно", Часть2));

// Ждем результатов
Результат1 = Задача1.ПолучитьРезультат();
Результат2 = Задача2.ПолучитьРезультат();

Возврат Min(Результат1, Результат2);

КонецФункции

⚠️ Внимание: Параллельная обработка имеет смысл только для очень больших массивов (100 000+ элементов). Для небольших массивов накладные расходы на создание потоков могут перевесить выгоду от параллелизма.

5. Альтернативные подходы: сортировка и структуры данных

Иногда поиск минимума можно оптимизировать, используя предварительную сортировку или специализированные структуры данных. Рассмотрим основные варианты:

Метод	Преимущества	Недостатки	Когда использовать
Сортировка + выбор первого элемента	Простота реализации	Высокая сложность O(n log n)	Когда массив нужно сортировать в любом случае
Куча (Heap)	Быстрое добавление/удаление минимума	Сложность реализации	Для динамических данных с частым поиском минимума
Дерево поиска	Быстрый поиск минимума/максимума	Высокие накладные расходы	Для сложных структур данных
Хеш-таблица с минимумом	О(1) доступ к минимуму	Дополнительная память	Для часто обновляемых коллекций

Пример использования сортировки для поиска минимума:

Массив = Новый Массив;
Массив.Добавить(15);
Массив.Добавить(3);
Массив.Добавить(8);
Массив.Добавить(22);

// Сортируем массив по возрастанию
Сортировка = Новый Структура("Ключ, Направление", "Значение, Возр");
Массив.Сортировать(Сортировка);

// Первый элемент отсортированного массива - минимум
Минимум = Массив[0];

Для динамических данных, где минимум требуется искать многократно, имеет смысл использовать структуру "куча" (heap). В 1С ее можно эмулировать с помощью массива:

Процедура ДобавитьВКучу(Куча, Значение) Экспорт
Куча.Добавить(Значение);
Индекс = Куча.ВГраница();
Пока Индекс > 0 И Куча[Индекс] < Куча[Цел((Индекс - 1)/2)] Цикл
Обмен = Куча[Цел((Индекс - 1)/2)];
Куча[Цел((Индекс - 1)/2)] = Куча[Индекс];
Куча[Индекс] = Обмен;
Индекс = Цел((Индекс - 1)/2);
КонецЦикла;
КонецПроцедуры

Функция ПолучитьМинимумИзКучи(Куча) Экспорт
Если Куча.Количество() = 0 Тогда
Возврат Неопределено;
КонецЕсли;

Минимум = Куча[0];
Куча[0] = Куча[Куча.ВГраница()];
Куча.Удалить(Куча.ВГраница());

// Восстанавливаем свойство кучи
Индекс = 0;
Пока Истина Цикл
Наименьший = Индекс;
Левый = 2 * Индекс + 1;
Правый = 2 * Индекс + 2;

Если Левый < Куча.Количество() И Куча[Левый] < Куча[Наименьший] Тогда
Наименьший = Левый;
КонецЕсли;

Если Правый < Куча.Количество() И Куча[Правый] < Куча[Наименьший] Тогда
Наименьший = Правый;
КонецЕсли;

Если Наименьший = Индекс Тогда
Прервать;
КонецЕсли;

Обмен = Куча[Индекс];
Куча[Индекс] = Куча[Наименьший];
Куча[Наименьший] = Обмен;
Индекс = Наименьший;
КонецЦикла;

Возврат Минимум;
КонецФункции

6. Типичные ошибки и как их избежать

Даже в такой простой задаче как поиск минимума разработчики 1С часто допускают ошибки, которые ведут к некорректным результатам или падению производительности. Рассмотрим наиболее распространенные проблемы:

1. Игнорирование пустых массивов

Многие забывают проверять, что массив не пустой перед поиском минимума. Это приводит к ошибкам выполнения:

// Плохо: нет проверки на пустоту
Минимум = Массив.Min(); // Ошибка, если массив пустой

// Хорошо: с проверкой
Если Массив.Количество() > 0 Тогда
Минимум = Массив.Min();
Иначе
Минимум = Неопределено; // или другое значение по умолчанию
КонецЕсли;

2. Сравнение разнотипных данных

При ручном поиске минимума в массиве со смешанными типами (числа и строки) результаты могут быть неожиданными:

Массив = Новый Массив;
Массив.Добавить(15);
Массив.Добавить("10"); // Строка!
Массив.Добавить(8);

// Сравнение числа и строки может дать некорректный результат
Минимум = Массив.Min(); // Вернет "10" (строка), а не 8

3. Неэффективные алгоритмы для больших данных

Использование вложенных циклов или неоптимизированных методов для больших массивов:

// Плохо: O(n^2) вместо O(n)
Для i = 0 По Массив.ВГраница() Цикл
ЯвляетсяМинимумом = Истина;
Для j = 0 По Массив.ВГраница() Цикл
Если Массив[j] < Массив[i] Тогда
ЯвляетсяМинимумом = Ложь;
Прервать;
КонецЕсли;
КонецЦикла;
Если ЯвляетсяМинимумом Тогда
Минимум = Массив[i];
Прервать;
КонецЕсли;
КонецЦикла;

4. Модификация массива во время поиска

Изменение массива в процессе поиска минимума может привести к непредсказуемым результатам:

// Опасно: модификация массива во время итерации Для Каждого Элемент Из Массив Цикл Если Условие(Элемент) Тогда Массив.Удалить(Элемент); // Это нарушит итерацию! КонецЕсли;

КонецЦикла;

5. Неучет особенностей типов данных

Разные типы данных сравниваются по-разному. Например, для дат минимум — самая ранняя дата, а для строк — первая в алфавитном порядке:

Дата1 = '2023-01-15';
Дата2 = '2023-03-08';
Результат = Min(Дата1, Дата2); // Вернет '2023-01-15' (раньше)

Строка1 = "Апельсин";
Строка2 = "Яблоко";
Результат = Min(Строка1, Строка2); // Вернет "Апельсин" (первая буква раньше в алфавите)

💡

Всегда проверяйте массив на пустоту перед поиском минимума и учитывайте типы данных элементов. Для больших массивов отдавайте предпочтение встроенной функции Min() или оптимизированным алгоритмам.

7. Практические примеры использования

Рассмотрим реальные сценарии, где поиск минимума в массиве 1С помогает решать бизнес-задачи:

Пример 1: Поиск минимальной цены среди номенклатуры

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|   Номенклатура.Наименование КАК Наименование,
|   ЦеныНоменклатуры.Цена КАК Цена
|ИЗ
|   Справочник.Номенклатура КАК Номенклатура
|       ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры КАК ЦеныНоменклатуры
|       ПО Номенклатура.Ссылка = ЦеныНоменклатуры.Номенклатура
|ГДЕ
|   Номенклатура.ЭтоГруппа = ЛОЖЬ";

РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();

МассивЦен = Новый Массив;
Пока Выборка.Следующий() Цикл
МассивЦен.Добавить(Выборка.Цена);
КонецЦикла;

МинимальнаяЦена = МассивЦен.Min();
Сообщить("Минимальная цена в справочнике: " + МинимальнаяЦена);

Пример 2: Поиск самого раннего документа

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|   Документ.Дата КАК Дата
|ИЗ
|   Документ.РеализацияТоваровУслуг КАК Документ";

Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();

МассивДат = Новый Массив;
Пока Выборка.Следующий() Цикл
МассивДат.Добавить(Выборка.Дата);
КонецЦикла;

СамаяРанняяДата = МассивДат.Min();
Сообщить("Самый ранний документ от: " + Формат(СамаяРанняяДата, "ДФ=dd.MM.yyyy"));

Пример 3: Оптимизация остатков на складе

// Получаем остатки по складам
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|   ОстаткиТоваров.Склад КАК Склад,
|   СУММА(ОстаткиТоваров.КоличествоОстаток) КАК Остаток
|ИЗ
|   РегистрНакопления.ОстаткиТоваров КАК ОстаткиТоваров
|СГРУППИРОВАТЬ ПО
|   ОстаткиТоваров.Склад";

Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();

МассивОстатков = Новый Массив;
Пока Выборка.Следующий() Цикл
МассивОстатков.Добавить(Выборка.Остаток);
КонецЦикла;

// Находим склад с минимальным остатком
МинимальныйОстаток = МассивОстатков.Min();
Сообщить("Минимальный остаток на складах: " + МинимальныйОстаток);

Пример 4: Анализ продаж по периодам

// Получаем данные о продажах по месяцам
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|   ВЫРАЗИТЬ(Документ.РеализацияТоваровУслуг.Дата КАК Дата) КАК Месяц,
|   СУММА(Документ.РеализацияТоваровУслуг.СуммаДокумента) КАК Сумма
|ИЗ
|   Документ.РеализацияТоваровУслуг КАК Документ
|СГРУППИРОВАТЬ ПО
|   ВЫРАЗИТЬ(Документ.РеализацияТоваровУслуг.Дата КАК Дата)";

Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();

МассивСумм = Новый Массив;
Пока Выборка.Следующий() Цикл
МассивСумм.Добавить(Выборка.Сумма);
КонецЦикла;

// Находим месяц с минимальными продажами
МинимальныеПродажи = МассивСумм.Min();

FAQ: Частые вопросы по поиску минимума в 1С

Как найти минимум в двумерном массиве?

Для двумерного массива нужно использовать вложенные циклы. Пример:

ДвумерныйМассив = Новый Массив;
ДвумерныйМассив.Добавить(Новый Массив(15, 3, 8));
ДвумерныйМассив.Добавить(Новый Массив(22, 5, 11));
ДвумерныйМассив.Добавить(Новый Массив(7, 19, 4));

Минимум = ДвумерныйМассив[0][0];
Для Каждого Строка Из ДвумерныйМассив Цикл
Для Каждого Элемент Из Строка Цикл
Если Элемент < Минимум Тогда
Минимум = Элемент;
КонецЕсли;
КонецЦикла;
КонецЦикла;

Можно ли найти минимум в массиве без цикла?

Да, для этого предназначена встроенная функция Min(). Она работает без явного цикла в коде, хотя внутри платформы, конечно, используется оптимизированный алгоритм перебора. Пример:

Массив = Новый Массив(15, 3, 8, 22);
Минимум = Массив.Min(); // 3

Как найти вторую по величине минимальную цену?

Нужно сначала отсортировать массив и взять второй элемент:

Цены = Новый Массив(1500, 800, 1200, 2500, 800);
Сортировка = Новый Структура("Ключ, Направление", "Значение, Возр");
Цены.Сортировать(Сортировка);

// Убираем дубликаты минимального значения
УникальныеЦены = Новый Массив;
ПредыдущееЗначение = Неопределено;
Для Каждого Цена Из Цены Цикл
Если Цена <> ПредыдущееЗначение Тогда
УникальныеЦены.Добавить(Цена);
ПредыдущееЗначение = Цена;
КонецЕсли;
КонецЦикла;

Если УникальныеЦены.Количество() >= 2 Тогда
ВтораяМинимальная = УникальныеЦены[1];
КонецЕсли;

Почему функция Min() возвращает неожиданный результат для строк?

Функция Min() для строк сравнивает их в лексикографическом порядке (посимвольно по таблице Unicode), а не по длине. Например:

Массив = Новый Массив("100", "20", "3");
Минимум = Массив.Min(); // Вернет "100" (первый символ '1' меньше '2' и '3')

Если нужно сравнивать строки как числа, предварительно преобразуйте их в числовой тип:

ЧисловыеЗначения = Новый Массив;
Для Каждого Строка Из Массив Цикл
ЧисловыеЗначения.Добавить(Число(Строка));
КонецЦикла;
Минимум = ЧисловыеЗначения.Min(); // 3

Как найти минимум в массиве структур по нескольким полям?

Нужно реализовать собственную логику сравнения. Пример поиска товара с минимальной ценой в пределах минимального остатка:

Товары = Новый Массив;
Товары.Добавить(Новый Структура("Название,Цена,Остаток", "Товар1", 1500, 10));
Товары.Добавить(Новый Структура("Название,Цена,Остаток", "Товар2", 800, 5));
Товары.Добавить(Новый Структура("Название,Цена,Остаток", "Товар3", 1200, 3));

// Находим минимальный остаток
МинимальныйОстаток = Товары[0].Остаток;
Для Каждого Товар Из Товары Цикл
Если Товар.Остаток < МинимальныйОстаток Тогда
МинимальныйОстаток = Товар.Остаток;
КонецЕсли;
КонецЦикла;

// Среди товаров с минимальным остатком ищем минимальную цену
МинимальнаяЦена = Неопределено;
Для Каждого Товар Из

Поиск минимального значения в массиве 1С: от простых методов до оптимизированных решений