Matematické Fórum

Skrytý text:

program moje;
const max=10;
var i,j,k,l,cislo,n,poradi:longint; fakt,pole:array[0..max]of longint;
uzito:array[1..max] of boolean;

begin
readln(n);
fakt[0]:=1;
for i:=1 to n do
    begin
    read(cislo);
    pole[i]:=cislo;
    fakt[i]:=fakt[i-1]*i;
    end;
for i:=1 to (n-1) do
        begin
        poradi:=((pole[i]-1)*(fakt[n-i]))+poradi;
        {writeln(poradi,';');}
        uzito[pole[i]]:=true;
        k:=0;
        for j:=pole[i] to n do
                begin
                {if pole[j]>i then dec(pole[j]); }
                if uzito[j] = false then
                        begin
                        {for k:=j to n do
                                begin }
                                for l:=1 to n do
                                        begin
                                        if pole[l]>j-1 then dec(pole[l]);
                                        end;
                                end;
                       { end;    }
                if k>0 then break;
                end;
        end;
inc(poradi);
writeln(poradi);
end.