Cod sursa(job #762925)

Utilizator sab-cNibas B36 sab-c Data 30 iunie 2012 15:29:37
Problema Sortare prin comparare Scor 20
Compilator fpc Status done
Runda Arhiva educationala Marime 0.51 kb
program sortare;
var i,n,j,aux,c:integer;
     fi,fo:text;
     a:array[1..500000] of longint;
begin
assign(fi,'algsort.in');reset(fi);
assign(fo,'algsort.out');rewrite(fo);
read(fi,n);
for i:=1 to n do begin read(fi,a[i]);end;
for i:=1 to n-1 do
  for j:=i+1 to n do
    if a[i]>a[j] then begin
                      aux:=a[i];
                      a[i]:=a[j];
                      a[j]:=aux;
                      end;
for c:=1 to n do begin write(fo,a[c]);write(fo,' '); end;
close(fi);close(fo);
end.