银赫 2008-09-29 00:34:00
点我顶贴
收藏
删除
var a:array[1..10000]of integer;
s,min,i,k,n,r:longint;
begin
s:=0;min:=80;
read(n,r);
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
if a[i]<min then min:=a[i];
end;
for i:=n downto 1 do
begin
if (s mod i=0)and(i<min) then begin
k:=s div i;
writeln(k-n,’ ’,i);
if i>r then write(’T’) else write(’F’);
break;
end;
end;
end.