Cod sursa(job #257065)

Utilizator Vlad_fiscaVlad Fisca Vlad_fisca Data 12 februarie 2009 19:02:55
Problema Sortare prin comparare Scor 40
Compilator fpc Status done
Runda Arhiva educationala Marime 0.61 kb
program algsort;
var f,g:text;
    k:boolean;
    aux:longint;
    n,i,j,min:0..500000;
    a:array[1..500000]of longint;
begin
   assign(f,'algsort.in');
   assign(g,'algsort.out');
   reset(f);
   rewrite(g);
   read(f,n);
   for i:=1 to n do
      read(f,a[i]);
   repeat
      k:=false;
      for i:=1 to n-1 do
      begin
         if(a[i]>a[i+1]) then
         begin
            aux:=a[i];
            a[i]:=a[i+1];
            a[i+1]:=aux;
            k:=true;
         end;
      end;
   until(k=false);
   for i:=1 to n do
      write(g,a[i],' ');
   close(f);
   close(g);
end.