---

ГСЧ = Новый ГенераторСлучайныхЧисел;
Числа = Новый Массив;

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

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

Для А = 0 По Числа.Количество() - 1 Цикл
	ТекущийЭлемент = Числа[А];
	
	Если ТекущийЭлемент < Минимум Тогда
		Минимум = ТекущийЭлемент;
	КонецЕсли;
	
	Если ТекущийЭлемент > Максимум Тогда
		Максимум = ТекущийЭлемент;
	КонецЕсли;
	
	Сумма = Сумма + ТекущийЭлемент;
КонецЦикла;

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

Сообщить("Минимум: " + Минимум);
Сообщить("Максимум: " + Максимум);
Сообщить("Среднее арифметическое: " + СреднееЗначение);
```[span_1](start_span)[span_1](end_span)

---

### Упражнение №4. Сортировка пузырьком

**Что вставить в `Модуль приложения`:**[span_2](start_span)[span_2](end_span)

```bsl
ГСЧ = Новый ГенераторСлучайныхЧисел;
Числа = Новый Массив;

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

Пока Истина Цикл
	БылиПерестановки = Ложь;
	
	Для Шаг = 0 По Числа.Количество() - 2 Цикл
		Если Числа[Шаг] > Числа[Шаг + 1] Тогда
			Буфер = Числа[Шаг];
			Числа[Шаг] = Числа[Шаг + 1];
			Числа[Шаг + 1] = Буфер;
			БылиПерестановки = Истина;
		КонецЕсли;
	КонецЦикла;
	
	Если БылиПерестановки = Ложь Тогда
		Прервать;
	КонецЕсли;
КонецЦикла;

Для Каждого Элемент Из Числа Цикл
	Сообщить(Элемент.Значение);
КонецЦикла;
```[span_3](start_span)[span_3](end_span)

---

### Упражнение №5. Вычисление факториала

**Что вставить в `Модуль приложения`:**[span_4](start_span)[span_4](end_span)

```bsl
ГСЧ = Новый ГенераторСлучайныхЧисел;
ЧислоДат = ГСЧ.СлучайноеЧисло(1, 15);

Факториал = 1;

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

Сообщить("Сгенерированное число: " + ЧислоДат);
Сообщить("Его факториал равен: " + Факториал);
```[span_5](start_span)[span_5](end_span)