Автор: Olegatronics 2.01.2003 7:20
Как отсортировать массивы Линейным способом и методом пузырька?
Автор: sandman 8.01.2003 21:09
пузырьком:
Код
{ сортировка массива "пузырьком" по возрастанию }
const n = 10; { количество элементов в массиве }
var a:array[1..n] of integer;
i,j,x:integer;
begin
writeln('введите ',n,' элементов массива');
for i:=1 to n do readln( a[i] );
for i:=1 to n-1 do begin
for j:=i+1 to n do begin
if a[i]>a[j] then begin
x:=a[i]; a[i]:=a[j]; a[j]:=x;
end;
end;
end;
writeln('после сортировки:');
for i:=1 to n do writeln( a[i] );
end.
Автор: Ivs 9.01.2003 2:52
Вот немножко улучшеный вариант:
Код
w:=true;
while w do
begin
w:=false;
for j:=1 to n-1 do
if a[j]>a[j+1] then
begin
w:=true; x:=a[j+1];
a[j+1]:=a[j]; a[j]:=x;
end;
end;