LINEGAME - VOI09 Trò chơi với băng số

Tác giả: RR

Ngôn ngữ: Pascal

uses math;
var
  i,n:longint;
  a,f1,f2:array[1..1000111] of int64;

begin
  read(n);
  for i:=1 to n do read(a[i]);
  f1[1]:=a[1];
  f1[2]:=max(f1[1],a[2]);
  f2[2]:=max(a[1]-a[2],0);

  for i:=3 to n do
    begin
      f1[i]:=max(f2[i-1]+a[i],f1[i-1]);
      f2[i]:=max(f1[i-1]-a[i],f2[i-1]);
    end;

  writeln(max(f1[n],f2[n]));
end.

Download