---

Процедура ВывестиМассив(М) Экспорт
	Для А = 0 По М.Количество() - 1 Цикл
		Сообщить(М[А]);
	КонецЦикла;
КонецПроцедуры

Процедура ПеремешатьМассив(М) Экспорт
	ГСЧ = Новый ГенераторСлучайныхЧисел;
	Для А = 0 По М.Количество() - 1 Цикл
		Б = ГСЧ.СлучайноеЧисло(0, М.Количество() - 1);
		Врем = М[А];
		М[А] = М[Б];
		М[Б] = Врем;
	КонецЦикла;
КонецПроцедуры

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

Функция ВернутьИзмененнуюКопию(М) Экспорт
	Копия = Новый Массив;
	Для А = 0 По М.Количество() - 1 Цикл
		Копия.Добавить(М[А]);
	КонецЦикла;
	Для А = 0 По Копия.Количество() - 1 Цикл
		Копия[А] = Копия[А] * (А + 1);
	КонецЦикла;
	Возврат Копия;
КонецФункции






Процедура ПриНачалеРаботыСистемы()
	Числа = Новый Массив(10);
	Для А = 1 По 10 Цикл
		Числа[А - 1] = А;
	КонецЦикла;

	Уроки.ВывестиМассив(Числа);
	Уроки.ПеремешатьМассив(Числа);
	Уроки.ВывестиМассив(Числа);
	Уроки.СортироватьМассив(Числа);
	Уроки.ВывестиМассив(Числа);

	Копия = Уроки.ВернутьИзмененнуюКопию(Числа);
	Уроки.ВывестиМассив(Числа);
	Уроки.ВывестиМассив(Копия);
КонецПроцедуры