求高手用Pascal语言编写以下程序

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/28 22:04:19

求高手用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);
就是编一个程序,能运算(表示)出上述问题

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.

求高手用Pascal语言编写以下程序请高手用Pascal语言编写下列程序 pascal语言编写一个程序用PASCAL语言编写一个求1+2+3+...+N的程序程序题,用pascal语言, pascal编写一个程序怎么用pascal语言编写这个表? 这个程序用pascal语言怎么写? 这个程序用pascal语言怎么写. PASCAL语言程序基本概念想要编写一个Pascal程序, 用PASCAL语言编写程序,输入一个实数,输出改实数和它的平方,平方根三次方,三次方根