Cod sursa(job #762925)
| Utilizator | Data | 30 iunie 2012 15:29:37 | |
|---|---|---|---|
| Problema | Sortare prin comparare | Scor | 20 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.51 kb |
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.
