|
|
сортировка массива методом выбора
{сортировка массива методом выбора}
program sort_select;
const
N=6; {размерность массива}
var
mas:array [1..N] of integer;
i,k:integer;
tmp:integer;
min, ind_min: integer;
begin
{Ввод значений массива}
for i:=1 to N do
begin
writeln('Введите ',i,' элемент массива ');
read(mas[i]);
end;
{Сортируем массив}
for k:=1 to N-1 do
begin
min:=mas[k];
ind_min:=k;
for i:=k+1 to N do
begin
if mas[i]<min then
begin
min:=mas[i];
ind_min:=i;
end;
end;
if ind_min>k then
begin
tmp:=mas[k];
mas[k]:=mas[ind_min];
mas[ind_min]:=tmp;
end;
end;
{Печать массива}
for i:=1 to N do
write(' ',mas[i]);
end.
|
| Категория: Примеры программ | Добавил: Admin (19.12.2009)
|
| Просмотров: 1984
| Рейтинг: 0.0/0 |
|
|
-->
-->
| linux-mgd.3dn.ru © 2024 |
 |
|
