|
|
Впорядкування елементів у масивах
Даний метод основується на тому, що масив переглядається перший
раз. Знаходиться мінімальний елемент цього масиву, який міняється
місцями з першим елементом масиву. Другий раз масив переглядається,
починаючи з другого елеменут. Знову знаходиться мінімальний елемент,
який міняється місцями з другим елементом масиву. Даний процес
виконується до тих пір, поки не буде поставлено на місце N-1-ий
елемент.
program minsort;
var A:array[1..5] of integer;
i,j, amin, l:integer;
begin
writeln('Vvedit elementy masyvu');
for i:=1 to 5 do
begin
readln(A[i]);
end;
writeln('Masyv do sortuvannja');
for i:=1 to 5 do write(A[i]);
writeln;
for i:=1 to 5 do begin
amin:=a[i];
l:=i;
j:=i+1;
while j<5 do
begin
if amin>a[j] then
begin
amin:=a[j];
l:=j;
end;
j:=j+1;
end;
A[l]:=A[i];
A[i]:=Amin;
end;
writeln;
writeln('Masyv pislja sortuvannja');
writeln;
for i:=1 to 5 do write(A[i]);
writeln;
end.
|
| Категорія: Паскаль | Додав: b_oliinyk (31.10.2010)
|
| Переглядів: 3231
|
|
