p1400 盗窃

 

背景 Background

怪盗基德 VS OIBH系列  
第一话

描述 Description

怪盗基德煞费苦心历尽九九八十一难终于来到了存放Paris Sunshine的OIBH总部
大楼顶上。基德知道这幢大楼的层数以及哪几层有呆头呆脑的警察。他还知道
Paris Sunshine就藏在两层层数与警卫人数成反比的楼层的中间那层。基德想
要知道那层楼的层数，警卫人数以及到那层所要经过的警卫人数。基德行踪不
定，可能从楼底往楼上走，也可能从楼顶往楼下走。

输入格式 InputFormat

输入文件共n+1行。第一行为2个数a,b。分别表示大楼的层数以及怪盗基德会从楼
下还是楼上出发。b=1则表示从楼顶出发，b=0表示从楼底出发。第2行到第n+1行
每行一个整数。表示该层警卫人数。

输出格式 OutputFormat

输出文件共1行，为两个用空格隔开的整数，分别是Paris Sunshine的藏匿地点以
及基德盗走Paris Sunshine所要经过楼层的警卫总数。

样例输入 SampleInput [复制数据]

5 136145

样例输出 SampleOutput [复制数据]

2 16

数据范围和注释 Hint

输入数据保证只有唯一一层楼符合条件。

时间限制 TimeLimitation

基德可不能等到警卫来抓他，所以你必须在1S内找出正确答案。

来源 Source

From 玛维-影之歌

 

附代码：

  program p1400;

var a,b,i,j,k,s:integer;

    g:array[0..99999]of longint;

begin

  readln(a,b);

  for i:=1 to a do

    readln(g[i]);

  for i:=1 to a-1 do

   for j:=i+1 to a do

    if g[i]*i=g[j]*j

     then k:=(i+j)div 2;

 s:=0;

  if b=1

   then for i:=a downto k do

         s:=s+g[i]

   else for i:=1 to k do

          s:=s+g[i];

   write(k,' ',s);

readln;

readln;

end.