Cod sursa(job #372645)

Utilizator crushackPopescu Silviu crushack Data 11 decembrie 2009 02:07:56
Problema Sortare prin comparare Scor 40
Compilator fpc Status done
Runda Arhiva educationala Marime 0.44 kb
program sortare;
 var sir:array[1..500000] of longint;
     n,i,j,ax: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,sir[i]);
 for i:= 1 to n-1 do
  for j:= i to n do
    if sir[i]>sir[j] then begin
       ax:=sir[i];
       sir[i]:=sir[j];
       sir[j]:=ax;
    end;
 for i:=1 to n do write(g,sir[i],' ');
 close(g);close(f);
 end.