Задание:
Помогите пожалуйста составить программуЗаполнить массив из 500 элементов случайными числами в интервале [0… 100]. Отсортировать его по возрастанию двумя способами – методом «пузырька» и методом «быстрой сортировки». Вывести на экран число перестановок элементов массива в том и в другом случае. Массив выводить на экран не нужно.
Решение:
Var a,i,j,b,p,p1: longint; m: array[0… 501] of longint; procedure qsort (l,r: longint); var q,w,i,j,p: longint; beginq: =m[ (l+r) div 2]; repeatwhile m[i] Знаете другой ответ?q do dec (j); if i