---

Упражнение №3
Условие: Создать массив из 100 случайных чисел в диапазоне от 0 до 1000 включительно. Найти минимум, максимум и среднее арифметическое.
ГСЧ = Новый ГенераторСлучайныхЧисел();
МассивЧисел = Новый Массив();

// Заполняем массив 100 случайными числами
Для Шаг = 1 По 100 Цикл
    МассивЧисел.Добавить(ГСЧ.СлучайноеЧисло(0, 1000));
КонецЦикла;

Минимум = МассивЧисел[0];
Максимум = МассивЧисел[0];
Сумма = 0;

// Поиск минимума, максимума и подсчет суммы
Для Каждого Элемент Из МассивЧисел Цикл
    Если Элемент < Минимум Тогда
        Минимум = Элемент;
    КонецЕсли;
    
    Если Элемент > Максимум Тогда
        Максимум = Элемент;
    КонецЕсли;
    
    Сумма = Сумма + Элемент;
КонецЦикла;

Среднее = Сумма / МассивЧисел.Количество();

Сообщить("Минимальный элемент: " + Минимум);
Сообщить("Максимальный элемент: " + Максимум);
Сообщить("Среднее арифметическое: " + Среднее);

Упражнение №4
Условие: Отсортировать массив из предыдущего упражнения методом пузырька по возрастанию и вывести результат пользователю.
// Генерация исходного массива из 100 чисел
ГСЧ = Новый ГенераторСлучайныхЧисел();
МассивЧисел = Новый Массив();

Для Шаг = 1 По 100 Цикл
    МассивЧисел.Добавить(ГСЧ.СлучайноеЧисло(0, 1000));
КонецЦикла;

// Сортировка методом пузырька (упрощенная версия)
КоличествоЭлементов = МассивЧисел.Количество();

Пока Истина Цикл
    БылаПерестановка = Ложь;
    
    Для Индекс = 0 По КоличествоЭлементов - 2 Цикл
        Если МассивЧисел[Индекс] > МассивЧисел[Индекс + 1] Тогда
            Временная = МассивЧисел[Индекс];
            МассивЧисел[Индекс] = МассивЧисел[Индекс + 1];
            МассивЧисел[Индекс + 1] = Временная;
            БылаПерестановка = Истина;
        КонецЕсли;
    КонецЦикла;
    
    Если Не БылаПерестановка Тогда
        Прервать;
    КонецЕсли;
КонецЦикла;

// Формирование строки для вывода
СтрокаВывода = "";
Для Каждого Элемент Из МассивЧисел Цикл
    СтрокаВывода = СтрокаВывода + Элемент + " ";
КонецЦикла;

ОткрытьЗначение(СтрокаВывода);

Упражнение №5
Условие: Сгенерировать случайное число от 1 до 15 включительно, вычислить и вывести его факториал.
ГСЧ = Новый ГенераторСлучайныхЧисел();
Число = ГСЧ.СлучайноеЧисло(1, 15);

Факториал = 1;
Для Множитель = 1 По Число Цикл
    Факториал = Факториал * Множитель;
КонецЦикла;

Сообщить("Случайное число: " + Число);
Сообщить("Факториал числа (" + Число + "!): " + Факториал);