Cod sursa(job #704620)

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