bai 5: tổng lớn nhất

Tổng số bài gửi : 15 Join date : 13/12/2022

var a:array[-5..100005] of longint;
n,max,i:longint;
begin
assign(input,'bai2.inp');reset(input);
assign(output,'bai2.out');rewrite(output);
readln(n);
for i:=1 to n do read(a[i]);
max:=a[1]+a[2]+a[3];
for i:=2 to n-2 do
if (a[i]+a[i+1]+a[i+2])>=max then max:=a[i]+a[i+1]+a[i+2];
write(max);
close(input);close(output);
end.
lol!

» Bài 65. Tổng lớn nhất
» Bài 20: Tìm hai số có tổng giá trị lớn nhất.
» Bài 45: Tổng ước
» Bài 52: Tổng chữ số của N
» Bài 20. Tổng chữ số