银赫 2008-09-29 00:32: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.