А вот интересно, для кого и для чего я вчера в
этой теме распинался, ошибки анализировал и т.п., если все до одного ляпсусы предыдущей благополучно перенесены в следующую программу, да еще новых добавлено? Ну как знаете.
Вот вам работающий вариант, как хотите, так и разбирайтесь:
Код:
const
n=10;
var
c,x:array[1..n] of Integer;
i,j,m,t:integer;
begin
randomize;
for i:=1 to n do
begin
c[i]:=random(10)-5;
Write(c[i]:4);
end;
Writeln;
Writeln;
m:=0;
for i:=1 to n do
if c[i]<>0 then
begin
Inc(m);
x[m]:=c[i];
write(x[m]:4);
end;
Writeln;
Writeln;
for i:=1 to m-1 do
for j:=1 to m-i do
if x[j]>x[j+1] then
begin
t:=x[j];
x[j]:=x[j+1];
x[j+1]:=t;
end;
for i:=1 to m do
Write(x[i]:4);
writeln;
readln;
END.