Cod sursa(job #735126)

Utilizator Buzu_Tudor_RoCont vechi Buzu_Tudor_Ro Data 15 aprilie 2012 19:13:58
Problema Litere Scor 40
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
Program p1;
var fi,fo : text;
    i,k,j,n :longint;
    a : array[1..10000] of char;

begin
    assign(fi,'litere.in'); reset(fi); readln(fi,n);
    assign(fo,'litere.out'); rewrite(fo);
    read(fi,a);

    for i:=1 to n do
        for j:=i+1 to n do if a[i]>a[j] then k:=k+1;

    writeln(fo,k);

    close(fi); close(fo);
end.