Question

Viết Ct nhập vào mảng số nguyên n phần tử . In ra màn hình tổng của hai phần tử liền kề lớn nhất

Answer 1

uses crt;
var max,i,n:longint;
a:array[1..1000000] of longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
max:=a[1]+a[2];
for i:=2 to n do
if (a[i]+a[i+1])>max then max:=a[i]+a[i+1];
write('Tong cua 2 phan tu lien ke lon nhat la: ',max);
readln
end.
P/S : Nguyên Hưng Trần Mình ko chắc code này của mình đúng, có gì sai bạn phản hồi lại nha!!!