定义一数组A,有20个元素,设元素首尾相接形成一个圈.求出相邻四个数之和(共20个),再找出哪四位数之和最大

Question

定义一数组A,有20个元素,设元素首尾相接形成一个圈.求出相邻四个数之和(共20个),再找出哪四位数之和最大

Answer 1

for i:=1 to 20 do read(a[i]);
for i:=21 to 23 do a[i]:=a[i-20];
sum:=a[1];
for i:=2 to 4 do sum:=sum+a[i];
max:=sum; k:=4;
for i:=5 to 20 do
begin
sum:=sum+a[i]-a[i-4];
if sum>max then begin max:=sum; k:=i; end;
end;
write('Max=',max,'=',a[k-3]);
for i:=2 downto 0 do write('+',a[k-i]);
writeln;