Cod sursa(job #847296)
Utilizator | Data | 3 ianuarie 2013 18:00:12 | |
---|---|---|---|
Problema | Sortare prin comparare | Scor | 20 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.35 kb |
Program sortarea_c;
var f,g:text;
i,j,n,aux:longint;
a:array[1..500000] of longint;
begin
assign(f,'algsort.in'); reset(f);
assign(g,'algsort.out'); rewrite(g);
readln (f,n);
for i:=1 to n do begin read (f,aux);
inc(a[aux]);
end;
for i:=1 to n do for j:=1 to a[i] do write (g,i,' ');
close(f);
close(g);
end.