Я вижу решение этой программы так:
Код:
const n=10;
var
c:array[1..n] of integer;
x:array[1..n] of real;
i,j,s:integer;
l:real;
begin
randomize;
for i:=1 to n do begin
c[i]:=random(10);
end;
s:=0;
for i:=1 to n do
begin
if c[i]<>0 then begin
s:=s+1;
x[s]:=c[i]/5;
end;
end;
for i:=1 to s-1 do begin
for j:=i to s do
if x[i]>=x[j] then begin
l:=x[i];
x[i]:=x[j];
x[j]:=l;
end;
end;
for i:=1 to s do
writeln (x[i]:4:1);
readln
end.