测试结果错误.错误结果为:can't

正确结果应为:can

以下是我的程序

program zz;

var

a,b:array[1..20000]of longint;

n1,m1,i,j,m,n,s,t:longint;

n2,m2,n3,m3,n4,m4:real;

begin

read(n,m);

for i:=1to n do

begin

read(a[i]);

n1:=n1+a[i];

end;

for i:=1to m do

begin

read(b[i]);

m1:=m1+b[i];

end;

if m>n then begin writeln('can',chr(39),'t'); exit; end;

if m=0 then begin write('can'); exit; end;

if n=0 then begin write('can',chr(39),'t'); exit; end;

n2:=n1/n; m2:=m1/m;

if m2>n2 then begin write('can',chr(39),'t'); exit; end;

for i:=1to n do

n3:=n3+sqr(a[i]-n2);

for i:=1to m do

m3:=m3+sqr(b[i]-m2);

n4:=n3/n;

m4:=m3/m;

if (n>m)and(n2>m2)and(n4<m4) then writeln('can')

else writeln('can',chr(39),'t');

readln(s);

end.

谢谢您的帮助