Major_Pain

Дан массив с (n) . Переписать в мас¬сив х (n) все ненулевые элементы массива Затем упорядочить методом «выбора и перестановки» по возрастанию но¬вый массив.

Программа не пашет, помогите плиз...
Решение: program o;const n=10; var
c:array[1..n] of real;
x:array[1..n] of real;
i,j,n_min:integer; min,t:real;
begin
randomize;
for i:=1 to n do
begin
for i:=1 to n do
c[i]:=random(10)-5;
end;
for i:=1 to n do
begin
if c[i]<>0 then
x[i]:=c[i];
end;
begin
for i:=1 to n-1 do

begin
min:=1000;
for i:=j to n do
begin
if x[i]<min then
begin
min:=x[i];
n_min:=i;
end;
for j:=1 to n do
t:=x[n_min];
x[n_min]:=x[j];
x[j]:=t;
writeln('t=',t);
end;
end;end;
end.
Заранее огромное спасибо)

Vladimir_S

А вот интересно, для кого и для чего я вчера в этой теме распинался, ошибки анализировал и т.п., если все до одного ляпсусы предыдущей благополучно перенесены в следующую программу, да еще новых добавлено? Ну как знаете.
Вот вам работающий вариант, как хотите, так и разбирайтесь: