Cu tí xếp bát. Có n chồng bát mỗi chồng có ai cái bát. Hỏi cu tí phải chuyển ít nhất bao nhiêu cái bát để số bát ở các chồng đều bằng nhau vd n =5; 6 5 8 2 4 kết quả: 4
1 câu trả lời
Code pascal:
var a,b:array[1..100000000] of longint;
i,n,d,k,tb,t,m:longint;
begin
read(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do
t:=t+a[i];
d:=t div n;
for i:=1 to n do
if a[i]>d then
begin
k:=a[i]-d;
m:=m+1;
b[m]:=k;
end;
for i:=1 to m do
tb:=tb+b[i];
write(tb);
end.
Câu hỏi trong lớp
Xem thêm
