Cod sursa(job #258233)
Utilizator | Toma Gina Corina CorinaT | Data | 14 februarie 2009 21:31:12 |
---|---|---|---|
Problema | Sortare prin comparare | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.47 kb |
program prob;
var f,g:text;
i,j,n,aux:longint;
v:array[1..10000] of integer;
begin
assign(f,'algsort.in');reset(f);
assign(g,'algsort.out');rewrite(g);
readln(f,n);
for i:=1 to n do read(f,v[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if v[i]>v[j] then begin
aux:=v[j];
v[j]:=v[i];
v[i]:=aux;
end;
for j:=1 to n do write(g,v[j]);
close(g);
end.