Cod sursa(job #704589)

Utilizator ignadariusIgna Darius ignadarius Data 2 martie 2012 18:59:18
Problema Sortare prin comparare Scor 20
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
Raporteaza aceasta sursa 
var f,g:text;i,j,aux,n:longint;v:array[1..500000]of integer;
begin
assign(f,'algsort.in');reset(f);
assign(g,'algsort.out');rewrite(g);
readln(f,n);
for i:=1 to n do
read(f,v[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if v[i]>v[j] then begin aux:=v[i];v[i]:=v[j];v[j]:=aux;end;
 for i:=1 to n do
 write(g,v[i],' ');
close(g);close(f);
end.