пробуй:
10. Метод швидкого сортування.
В основу метода покладена ідея послідовного дроблення масиву на частини.Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34 Const N=10;
Var A: array[1..N] of integer;
i:integer;
Procedure Quick(first,last:integer);
Var i,j,x,w,linteger;
Begin
I:=first;
J:=last;
X:=A[(first+last) div 2];
Repeat
While A[i]>x do i:=i+1;
While x>A[j] do j:=j-1;
If i<=j then begin
W:=A[i];
A[i]:=A[j];
A[j]:=w;
I:=i+1;
J:=j-1;
End;
until i>j;
if first<j then Quick(first,j);
if i<last then quick(i,last);
end;
Begin
For i:=1 to N do begin
Writeln(‘введи елемент масиву’);
Readln(A[i]);
End;
Quick(1,N);
writeln('Масив після сортування:');
writeln;
for i:=l to N do write(A[i]:5);
writeln;
end.