作业帮新手求编个pascal语言简单程序有一组数,其排列形式如下：11,19,9,12,5,20,1,18,4,16,6,10,15,2,17,3,14,7,13,8,且尾部8和头部11首尾相连,构成环形的一组数,编程找出相邻的4个数,其相加之和最大,并给出它
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/28 01:44:51
新手求编个pascal语言简单程序有一组数,其排列形式如下：11,19,9,12,5,20,1,18,4,16,6,10,15,2,17,3,14,7,13,8,且尾部8和头部11首尾相连,构成环形的一组数,编程找出相邻的4个数,其相加之和最大,并给出它
新手求编个pascal语言简单程序
有一组数,其排列形式如下：11,19,9,12,5,20,1,18,4,16,6,10,15,2,17,3,14,7,13,8,且尾部8和头部11首尾相连,构成环形的一组数,编程找出相邻的4个数,其相加之和最大,并给出它们的起始位置.
新手求编个pascal语言简单程序有一组数,其排列形式如下：11,19,9,12,5,20,1,18,4,16,6,10,15,2,17,3,14,7,13,8,且尾部8和头部11首尾相连,构成环形的一组数,编程找出相邻的4个数,其相加之和最大,并给出它
这道题可以用链表环来做,也可以用数组.我这里用数组编.
var i,j,k,s,max,t:integer;
a:array[1..20]of integer;
begin
for i:=1 to 20 do
read(a[i]);
max:=0;
t:=1;
for i:=1 to 20 do
begin
s:=0;
for j:=0 to 3 do
begin
k:=(i+j) mod 20;
if k=0 then k:=20;
s:=s+a[k];
end;
if s>max then begin max:=s;t:=i; end;
end;
for i:=t to t+3 do
begin
k:=i mod 20;
if k=0 then k:=20;
write(a[k],' ');
end;
writeln(max);
end.