стандартная сортировка пузырьком. параллельное программирование.

[lamont61]

procedure BubbleSort(var Arr : TReal1DArray; const N : Integer);
var
I : Integer;
J : Integer;
Tmp : Double;
begin
i:=0;
while i<=N-1 do
begin
j:=0;
while j<=n-2-i do
begin
if Arr[j]>Arr[j+1] then
begin
Tmp := Arr[j];
Arr[j] := Arr[j+1];
Arr[j+1] := Tmp;
end;
Inc(j);
end;
Inc(i);
end;
end;

Входные параметры:
Arr - сортируемый массив.
Нумерация элементов от 0 до N-1
N - размер массива
Выходные параметры:
Arr - массив, упорядоченный по возрастанию.
Нумерация элементов от 0 до N-1

надо распараллелить, чтобы можно было запускать на множестве компьютеров

У нас принято оформлять код специальным тэгом - кнопочка "#".
Модератор

[ds.Dante]

Простите, Вы пишете диссертацию? :)

[Utkin]

Ты сортируешь числа? Разбей числовой интервал на диапазоны и раздай их потокам. Допустим один комп выбирает только числа меньше нуля, второй от нуля и до миллиона и т.п. Вот только мне интересно, где бы найти реализацию параллельного Паскаля? Или Вы пишите на Аде?