Pagini recente » Cod sursa (job #942449) | Cod sursa (job #440113) | Istoria paginii runda/concurs_123/clasament | Cod sursa (job #2528535) | Cod sursa (job #762925)
Cod sursa(job #762925)
program sortare;
var i,n,j,aux,c:integer;
fi,fo:text;
a:array[1..500000] of longint;
begin
assign(fi,'algsort.in');reset(fi);
assign(fo,'algsort.out');rewrite(fo);
read(fi,n);
for i:=1 to n do begin read(fi,a[i]);end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then begin
aux:=a[i];
a[i]:=a[j];
a[j]:=aux;
end;
for c:=1 to n do begin write(fo,a[c]);write(fo,' '); end;
close(fi);close(fo);
end.