Cod sursa(job #547992)

Utilizator darius96pop darius darius96 Data 6 martie 2011 21:56:23
Problema Sortare prin comparare Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.44 kb
var i,n,j,k:integer;
    a,c:array [1..100]of integer;
begin
 assign(input,'algsort.in');reset(input);
 assign(output,'algsort.out');rewrite(output);
 readln(n);
        for i:=1 to n do
                read(a[i]);
        for i :=1 to n do  begin
         for k:=2 to n do
        if a[i]<=a[k] then c[i]:=a[i];
                        end;
                for j:=1 to n do write(a[i],' ');
 close(input);close(output);
 readln;
end.