Đăng nhập để hỏi chi tiết


Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
program ro_choi;
uses crt;
var a:array[1..106] of integer;
i,n,h,x,y,z,max,t: integer;
begin
read(n);
for i:= 1 to n do read(a[i]);
i:=1; max:=0;
while i <= n do
begin
x:=a[i];
y:=a[i+1];
z:=a[i+2];
t := x+y;
if t - z > max then
begin
max:= t-z;
h := x+y-z;
end;
i := i+3;
end;
write(h);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin