Cod sursa(job #696044)

Utilizator mciprianmosincat ciprian mciprian Data 28 februarie 2012 16:31:50
Problema Sortare prin comparare Scor 40
Compilator fpc Status done
Runda Arhiva educationala Marime 0.34 kb
Raporteaza aceasta sursa 
var aux,i,j,n:longint;
a:array[1..500000]of 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,a[i]);
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 i:=1 to n do write(g,a[i],' ');close(g);close(f);end.