Cod sursa(job #868137)

Utilizator crysstyanIacob Paul Cristian crysstyan Data 30 ianuarie 2013 18:28:38
Problema Sortare prin comparare Scor 20
Compilator fpc Status done
Runda Arhiva educationala Marime 0.47 kb
program sadfasdl;
var v:array[1..500001] of integer;
    i,n,j,aux:integer;
    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.