Pagini recente » Cod sursa (job #1843364) | Cod sursa (job #1794502) | Cod sursa (job #762676) | Cod sursa (job #2472147) | Cod sursa (job #704613)
Cod sursa(job #704613)
var h,g:text;i,j,aux,n,f:longint;v:array[1..500000]of integer;ok:boolean;
begin
assign(h,'algsort.in');reset(h);
assign(g,'algsort.out');rewrite(g);
readln(h,n);
for i:=1 to n do
read(h,v[i]);
for f:=n downto 2 do
for i:=1 to f-1 do
if v[i]>v[i+1] then begin ok:=false; aux:=v[i];v[i]:=v[i+1];v[i+1]:=aux;end;
for i:=1 to n do
write(g,v[i],' ');
close(g);close(h);
end.