Cod sursa(job #696044)
Utilizator | mosincat ciprian mciprian | Data | 28 februarie 2012 16:31:50 |
---|---|---|---|
Problema | Sortare prin comparare | Scor | 40 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.34 kb |
var aux,i,j,n:longint;
a:array[1..500000]of longint;
f,g:text;
begin
assign(f,'algsort.in');reset(f);
assign(g,'algsort.out');rewrite(g);
readln(f,n);
for i:=1 to n do read(f,a[i]);
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 i:=1 to n do write(g,a[i],' ');close(g);close(f);end.