Если число а встречается в массиве вещественных чисел x размера n(n=10), то упорядочить по неубыванию часть массива до последнего вхождения а, в противном случае упорядочить по невозрастанию часть массива между первым и пятым элементами.паскаль

Готово. Не пугайтесь swap, просто благодаря ему "пузырёк" выглядит лучше. Программа во вложении.
UPD: Чтобы увеличить рандомность генерации массива, измените аргумент в функции random из первого цикла.