记录编号 116781 评测结果 AAAAAAAAAA
题目名称 [NOIP 2013]花匠 最终得分 100
用户昵称 Gravatar筽邝 是否通过 通过
代码语言 Pascal 运行时间 0.030 s
提交时间 2014-08-27 08:32:14 内存使用 0.17 MiB
显示代码纯文本
program cojs1441;
var
  n,x,y,a,b,i:longint;

function max(a,b:longint):longint;
begin
  if a>b then exit(a) else exit(b);
end;

begin
assign(input,'FlowerNOIP2013.in');reset(input);
assign(output,'FlowerNOIP2013.out');rewrite(output);

  readln(n);
  read(y);
  for i:=2 to n do
  begin
    read(x);
    if x>y then a:=max(a,b+1);
    if x<y then b:=max(b,a+1);
    y:=x;
  end;
  writeln(max(a,b)+1);

close(input);close(output);
end.