Помогите решить задачу на сортировку одномерного массива, надо использовать метод, где надо найти сначало минимум и поставить его на 1 место и ....
задача:Дан массив с (n) . Переписать в мас¬сив х (n) все ненулевые элементы массива Затем упорядочить методом «выбора и перестановки» по возрастанию но¬вый массив
Вот моя версия, я хоть правильно думаю?
program o;const
n=10;
var
c,x:array[1..n] of Integer;
i,l,j,min,n_min,t,buf:integer;
begin
randomize;
for i:=1 to n do
begin
c[i]:=random(10);
write(c[i]);
end;
for i:=1 to n do
begin
for j:=1 to n do
if c[i]<>0 then
x[j]:=c[i];
writeln(x[j]);
end;
min:=100;
for j:=1 to n do
begin
if x[j]<min then
begin
min:=x[j];
n_min:=j;
end;
t:=x[n_min];
x[n_min]:=x[j];
x[j]:=t;
for j:=1 to n do
writeln('x=',x[j]);
end;
end.
Спасибо)