又一道free pascal题

枚举 就行了；（以下代码仅供参考）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。