Cod sursa(job #868139)

Utilizator crysstyanIacob Paul Cristian crysstyan Data 30 ianuarie 2013 18:30:52
Problema Sortare prin comparare Scor 40
Compilator fpc Status done
Runda Arhiva educationala Marime 0.47 kb
program sadfasdl;
var v:array[1..500001] of longint;
    i,n,j,aux:longint;
    f,g:text;
    begin
    assign(f,'algsort.in');
    reset(f);
    read(f,n);
    for i:=1 to n do
    read(f,v[i]);
    close(f);
    assign(g,'algsort.out');
    rewrite(g);

    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);
    end.