Description
有n个候选人要竞选主席，有m个人要投票。每个人只能投一票，如果某个人投了超过一票或者不投票，那么这个人的投票将视为非法。
给出m个人的投票情况，你的任务是统计投票情况，然后按照获得投票数从高到低将候选人排序，如果获得的投票数相同，则按照候选人的输入顺序从小到大排序。
Input
第一行一个整数n,m(2<=n<=10, 1<=m<=1000)，分别表示候选人的数量和投票人的数量。
接下来n行，每行有一个字符串，表示候选人的名字，保证字符串长度不超过100，且不包含”Invalid”这个名字。
接下来m行，每行一个长度为n的字符串，表示一个人的投票情况，字符串仅包含“X”和”.”。若字符串的第i个位置为”X”，则表示这个人给第i个候选人投一票。
Output
一共n+1行，前n行每行的信息分别为候选人的名字以及它所获的票占总票数的百分比，名字和百分比用一个空格隔开。其中百分比要四舍五入保留两位小数。
最后一行输出非法票数占总票数的比例，非法票数的名字用”Invalid”表示，具体看请看样例输出。
Sample Input
4 7
Loudy
Apples
Dogman
Miller
.X..
X…
….
..X.
..XX
..X.
..X.
Sample Output
Dogman 42.86%
Loudy 14.29%
Apples 14.29%
Miller 0.00%
Invalid 28.57%
Data Constraint
100%的数据，n<=10，m<=1000
思路：
简单的字符串处理
十分建议用pascal
代码：
type arr=record
na:string;
da,x:longint;
end;
var a:array[0..111] of arr;
s:string;
n,m,i,j,k,t:longint;
begin
readln(n,m);
for i:=1 to n do
begin
readln(a[i].na);
a[i].x:=i;
end;
a[n+1].na:='Invalid';
for i:=1 to m do
begin
readln(s);
t:=n+2;
for j:=1 to length(s) do
if (s[j]='X') then
if (t=n+2) then t:=j else t:=n+1;
if (t=n+2) then t:=n+1;
inc(a[t].da);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if (a[i].da<a[j].da) or ((a[i].da=a[j].da) and (a[i].x>a[j].x)) then
begin
a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0];
end;
for i:=1 to n+1 do
writeln(a[i].na,' ',trunc(a[i].da*10000/m+0.5)/100:0:2,'%');
end.
