Cod sursa(job #245739)

Utilizator 05_YohnE1 La5c01 05_Yohn Data 18 ianuarie 2009 19:36:46
Problema Litere Scor 40
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var v:array[1..10000]of char;
    c:char;f,g:text;
    n,i,j:integer;nr:longint;
begin
assign(f,'litere.in');reset(f);
assign(g,'litere.out');rewrite(g);
readln(f,n);
for i:=1 to n do begin
         read(f,c);v[i]:=c;
         end;
nr:=0;
for i:=1 to n-1 do
    for j:=i+1 to n do if v[i]>v[j] then inc(nr);
writeln(g,nr);
close(g);
end.