新手求编个pascal语言简单程序

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/09/30 14:32:20

新手求编个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.

新手求编个pascal语言简单程序 PASCAL语言程序基本概念 pascal语言编写一个程序程序题,用pascal语言, pascal语言蛇形矩阵程序如下： pascal语言改错程序、题目↓ 这个程序用pascal语言怎么写? 这个程序用pascal语言怎么写. 几道pascal语言的简单题目求高手用Pascal语言编写以下程序请高手用Pascal语言编写下列程序单词连接（link.pas/c/cpp）pascal语言的问题,求pascal程序详细内容