编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：90 有效耗时：0ms

program xhb(input,output);

var a:array[-10..10000]of integer;

b:array[0..100]of longint;

c:array[0..100]of integer;

i,j,n,m,r,x,min:integer;

y,l:longint;

procedure shuchu;

var v:integer;

begin

v:=0;

for i:=1 to r do

if b[i] mod m=0 then v:=v+1;

writeln(v);

halt;

end;

begin

readln(l);

readln(m,n,r);

for i:=1 to r do

read(b[i]);

if m=n then shuchu;

for i:=1 to r-1 do

for j:=1 to r-i do

if b[j]>b[j+1] then

begin y:=b[j];b[j]:=b[j+1];b[j+1]:=y;end;

fillchar(a,sizeof(a),0);

b[0]:=0;

c[0]:=0;

x:=0;

for i:=1 to r do

if b[i]-b>100 then c[i]:=100

else c[i]:=b[i]-b;

for i:=1 to r do

begin

x:=x+c[i];

a[x]:=1;

end;

x:=x+100;

for i:=1 to x do

begin

min:=101;

for j:=i-n to i-m do

if a[j]