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.
i,j,k,l,n,m,r,min:longint;
a:array[0..1000] of longint;
p:boolean;
begin
readln(n,r);min:=maxlongint;
for i:=1 to n do
begin
readln(a[i]);
if a[i]<min then
min:=a[i];
end;p:=false;
k:=0;
for i:=1 to n do
k:=k+a[i]-min;
k:=k-n;
repeat
k:=k+n;
if k mod min=0 then
p:=true
else
min:=min-1;
until p or (min=0);
writeln(k div min,’ ’,min);
if min>r then
write(’T’)
else
write(’F’);
end.
program p108;
var n,i,r,m,s,min,x:longint;
begin
read(n,r);
min:=maxlongint;
for i:=1 to n do
begin
read(x);
if x<min then min:=x;
s:=s+x
end;
for i:=min downto 1 do
if s mod i=0 then break;
m:=s div i-n;
writeln(m,’ ’,i);
if i>r then writeln(’T’) else writeln(’F’)
end.
我这样就AC