又一道free pascal题由M个数构成一个圆环,找出N个相邻的数,使其和为最大、最小.样例输入与输出:输入:8 41 7 8 2 6 5 4 3输出:Max=23Min=13

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/27 03:15:28
又一道freepascal题由M个数构成一个圆环,找出N个相邻的数,使其和为最大、最小.样例输入与输出:输入:8417826543输出:Max=23Min=13又一道freepascal题由M个数构成

又一道free pascal题由M个数构成一个圆环,找出N个相邻的数,使其和为最大、最小.样例输入与输出:输入:8 41 7 8 2 6 5 4 3输出:Max=23Min=13
又一道free pascal题
由M个数构成一个圆环,找出N个相邻的数,使其和为最大、最小.
样例输入与输出:
输入:
8 4
1 7 8 2 6 5 4 3
输出:
Max=23
Min=13

又一道free pascal题由M个数构成一个圆环,找出N个相邻的数,使其和为最大、最小.样例输入与输出:输入:8 41 7 8 2 6 5 4 3输出:Max=23Min=13
枚举 就行了;
(以下代码仅供参考)
program hh;
var
i,j,m,n,total,max,min:longint;
a:array[0..1000] of longint;
begin
readln(m,n);
for i:=1 to m do begin
read(a[i]);
a[m+i]:=a[i];
end;
min:=maxlongint;
max:=-maxlongint;
for i:=1 to m do begin
total:=0;
for j:=i to i+n-1 do
inc(total,a[j]);
if totalmax then max:=total;
end;
writeln('Max=',max);
writeln('Min=',min);
end.