Cod sursa(job #551049)
Utilizator | Data | 10 martie 2011 11:46:32 | |
---|---|---|---|
Problema | Sortare prin comparare | Scor | 40 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.43 kb |
var v:array [1..500000] of int64;
aux:int64;
i, j, n:longint;
f, g:text;
begin
assign (f, 'algsort.in');
reset (f);
assign (g, 'algsort.out');
rewrite (g);
read (f, n);
for i := 1 to n do read (f, v[i]);
for i := 1 to n-1 do
for j :=i to n do
begin
if v[i]>v[j] then begin aux:= v[i];v[i]:=v[j]; v[j]:=aux; end;
end;
for i := 1 to n do write (g, v[i], ' ');
close (f);
close (g);
end.