Функция  СортировкаШейкеромРядаЧисел(МассивЭлементов) Экспорт

	// Определяем границы массива

	НижняяГраница = 0;

	ВерхняяГраница = МассивЭлементов.Количество()-1;

	// Определяем счётчики циклов, они же - границы неотсортированной части массива

	счётчик1 = МассивЭлементов.Количество()-1;

	счётчик2 = 0;



	// Поехали сортировать массив

	Пока НижняяГраница < ВерхняяГраница Цикл

		// Проход снизу вверх

		Пока счётчик1 >= 0  Цикл

			счётчик1 = счётчик1-1;

			Если счётчик1 = 0 Тогда

				Прервать;

			КонецЕсли;

			Если МассивЭлементов[счётчик1-1] > МассивЭлементов[счётчик1] Тогда

				МладшийЭлемент = МассивЭлементов[счётчик1];

				СтаршийЭлемент = МассивЭлементов[счётчик1-1];

				

				МассивЭлементов[счётчик1-1] = МладшийЭлемент;

				МассивЭлементов[счётчик1] = СтаршийЭлемент;

				

				счётчик2 = счётчик1;

			КонецЕсли;

		КонецЦикла;

		

		НижняяГраница = счётчик2+1;

		

		// Проход сверху вниз

		счётчик1 = 0;

		Пока счётчик1 <= ВерхняяГраница Цикл

			счётчик1 = счётчик1+1;

			Если счётчик1 = МассивЭлементов.Количество() Тогда

				Прервать;

			КонецЕсли;

			Если МассивЭлементов[счётчик1-1] > МассивЭлементов[счётчик1] Тогда

				МладшийЭлемент = МассивЭлементов[счётчик1];

				СтаршийЭлемент = МассивЭлементов[счётчик1-1];

				

				МассивЭлементов[счётчик1-1] = МладшийЭлемент;

				МассивЭлементов[счётчик1] = СтаршийЭлемент;

				счётчик2 = счётчик1;

			КонецЕсли;

		КонецЦикла;

		

		ВерхняяГраница = счётчик2-1;

	КонецЦикла;

	

	Возврат МассивЭлементов;

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



   

 

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

	// Количество просмотров массива - по количеству числа его элементов

	Для просмотр = 0 По МассивЭлементов.Количество()-1 Цикл

		// Собственно, просмотр массива

		Для индекс = 0 По МассивЭлементов.Количество()-1 Цикл

			// Если достигли конца массива то прервём цикл,

                        // чтобы не выполнять условие ниже

			Если индекс = МассивЭлементов.Количество()-1 Тогда

				Прервать;

			КонецЕсли;

			// Сравнение элементов и их перестановка (если требуется)

			Если МассивЭлементов[индекс] > МассивЭлементов[индекс+1] Тогда

				СтаршийЭлемент = МассивЭлементов[индекс];

				МладшийЭлемент = МассивЭлементов[индекс+1];

				МассивЭлементов[индекс] = МладшийЭлемент;

				МассивЭлементов[индекс+1] = СтаршийЭлемент;

			КонецЕсли;

		КонецЦикла;

	КонецЦикла;

	Возврат МассивЭлементов;

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