Pagini recente » Cod sursa (job #1768688) | Cod sursa (job #1020917) | Cod sursa (job #3200550) | Cod sursa (job #1727631) | Cod sursa (job #704620)
Cod sursa(job #704620)
var h,g:text;i,j,aux,n,f:longint;v:array[1..500000]of longint;
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 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.