Курсовая работа: Составить программу на языке Turbo Pascal для параллельной сортировки чисел
begin
a[j+1]:=a[j];
j:=j-1;
k:=k+1;
if j=0 then goto 1;
end;
1: a[j+1]:=x;
end;}
{puzyrkovyi metod}
for i:=2 to e do
begin
for j:=e downto i do
if a[j-1] > a[j] then
begin
x:=a[j-1];
a[j-1]:=a[j];
a[j]:=x;
end;
end;
write(chr(5));
For i:=1 to e do
begin
TextColor(5);
write(' ',a[i],' ');
end;
writeln;
for i:=1 to 35 do
begin
textcolor(1);