Помогите реализовать в методе пузырька потоки (треды)
алгоритм прилогается..
| Код |
Program Bubble_Sort;
const
n=100; {Размер массива}
Type
type_vector= Array [1..n] of Integer;
Var m : type_vector;
i,j, {индексы}
buf : integer; {буферная переменная}
Begin
{определение массива m и его заполнение}
WriteLn ('Massive m');
Randomize;
for i:=1 to n do Begin
m[i]:=Random(21)-10;
Write (m[i]: 4);
end; {конец цикла по i}
For i:=1 To n-1 Do
For j:=1 to n-i do
If m[j]>m[j+1] then
Begin
buf:=m[j];
m[j]:=m[j+1];
m[j+1]:=buf;
end;
WriteLn ('Отсортированный массив m');
For i:=1 to n do
Write (m[i]: 4);
ReadLN;
End.
|
|