信息学奥林匹克竞赛-相邻两数最大和

寻找相邻两个数，使得这两个数的和最大，输出这两个数的和以及这两个数所在位置

vara:array[1..10] of longint=(5,-2,6,3,-1,18,-5,1,8,4);max,pos,i:longint;beginmax:=a[1]+a[2];pos:=1;for i:=1 to 9 dobeginif a[i]+a[i+1]>max thenbeginmax:=a[i]+a[i+1];pos:=i;end;end;writeln(max);writeln(pos,' ',pos+1);end.