data order by uru

var i,n,s:word;a:array[0..999]of word;begin
repeat
inc(n);readln(a[n])until eof;repeat
inc(i);s:=1;for n:=1to n do s:=s+ord(a[i]<a[n]);writeln(s)until i=n end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page