好恶心的题目！竟然没有数据范围！！

囧,我不会,先不做了……先想想

不给数据范围,题意描述不清!

这题太恶心!

害的我此题提交2遍!

大家小心啊~~~~~

两个楼层有可能是相邻的啊~~~~~

所以

for i:=1 to a-1 do

for j:=i+1 to a do

这样循环就行了啊~~~~~

小声说：这题好变态啊~~~~~

(Barty好变态啊~~~~~)

数据范围？

嗨，数据那么小，又不写范围，害得我整了上千层，每个数据都用的int64，我靠哦

running......至今无结果........

Ctrl+A忘按，我的AC率........

55555~~~~~

地板

直接搜就行了

如果i 和 j满足 取(i+j) div 2

范围100以内

简洁又暴力,你值得拥有

var a:array[0..1000]of longint;
i,j,n,o,k,ans:longint;
begin
readln(n,o);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]*i=a[j]*j then
k:=(i+j)>>1;
if o=1 then for i:=n downto k do ans:=ans+a[i]
else for i:=1 to k do ans:=ans+a[i];
writeln(k,' ',ans);
end.