Lệ
Tổng số bài gửi : 16 Join date : 06/12/2022
| Tiêu đề: bai5.pascal Tue Dec 13, 2022 9:02 pm | |
| uses math; var i,n:longint; a:array [1..10000] of longint; p,res:int64; begin assign(input,'bai5.inp'); reset(input); assign(output,'bai5.out'); rewrite(output); read(n); for i:=1 to n do read(a[i]); p:=-trunc(1e9); res:=-trunc(1e9); for i:=1 to n-2 do p:=a[i]+a[i+1]+a[i+2]; if res<p then res:=p; write(res); close(input); close(output); end. - Code:
-
| |
|