又一道free pascal题
<p>又一道free pascal题</p><p><img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分：0 -</p>
<p>解决时间：2010-8-2 10:10</p>
<p>由M个数构成一个圆环，找出N个相邻的数，使其和为最大、最小。</p>
<p>样例输入与输出：</p>
<p>输入：</p>
<p>8 4</p>
<p>1 7 8 2 6 5 4 3</p>
<p>输出：</p>
<p>Max=23</p>
<p>Min=13</p>
<p>拜托了</p>
<p>提问者： skyszh98 - 一级</p>
<p>最佳答案</p>
<p>枚举 就行了；</p>
<p>（以下代码仅供参考）</p>
<p>program hh;</p>
<p>var</p>
<p>i，j，m，n，total，max，min:longint;</p>
<p>a:array of longint;</p>
<p>begin</p>
<p>readln(m，n);</p>
<p>for i:=1 to m do begin</p>
<p>read(a);</p>
<p>a:=a;</p>
<p>end;</p>
<p>min:=maxlongint;</p>
<p>max:=-maxlongint;</p>
<p>for i:=1 to m do begin</p>
<p>total:=0;</p>
<p>for j:=i to i+n-1 do</p>
<p>inc(total，a);</p>
<p>if total<min then min:=total;</p>
<p>if total>max then max:=total;</p>
<p>end;</p>
<p>writeln(\'Max=\'，max);</p>
<p>writeln(\'Min=\'，min);</p>
<p>end.</p>
<p>0</p>
<p>回答者：</p>
<p>红色暴民 - 一级 2010-8-1 19:08</p>
<p>我来评论>></p>
<p>提问者对于答案的评价：</p>
<p>谢谢</p>
页:
[1]