求高手用Pascal语言编写以下程序【问题描述】有一组20个数,其排列形式如下：11,19,9,12,5,20,1,18,4,16,6,10,15,2,17,3,14,7,13,8,且尾部8和头部11首尾相连,构成环形的一组数,编程找出相邻的4个数,其相加
来源：学生作业帮助网 编辑：六六作业网 时间：2025/01/30 09:39:27
求高手用Pascal语言编写以下程序【问题描述】有一组20个数,其排列形式如下：11,19,9,12,5,20,1,18,4,16,6,10,15,2,17,3,14,7,13,8,且尾部8和头部11首尾相连,构成环形的一组数,编程找出相邻的4个数,其相加
求高手用Pascal语言编写以下程序
【问题描述】
有一组20个数,其排列形式如下：11,19,9,12,5,20,1,18,4,16,6,10,15,2,17,3,14,7,13,8,且尾部8和头部11首尾相连,构成环形的一组数,编程找出相邻的4个数,其相加之和最大,并给出它们的起始位置.
提示：可用数组常量表示：
Const
a:array[1..23 ]of integer=(11,19,9,12,5,20,1,18,4,16,6,10,15,2,17,3,14,7,13,8,11,19,9);
就是编一个程序,能运算(表示)出上述问题
求高手用Pascal语言编写以下程序【问题描述】有一组20个数,其排列形式如下：11,19,9,12,5,20,1,18,4,16,6,10,15,2,17,3,14,7,13,8,且尾部8和头部11首尾相连,构成环形的一组数,编程找出相邻的4个数,其相加
Const
a:array[1..23 ]of integer=(11,19,9,12,5,20,1,18,4,16,6,10,15,2,17,3,14,7,13,8,11,19,9);
var max,i,l:longint;
begin
max:=-maxlongint;
for i:=1 to 20 do
if a[i]+a[i+1]+a[i+2]+a[i+3]>max then
begin
max:=a[i]+a[i+1]+a[i+2]+a[i+3];
l:=i;
end;
writeln(l);
end.