Program pku2181;

 const
        fin = 'data2.in';
        fout= '';
 
 Var
        
        A               : Array [1..15010] of Longint;
        n               : Longint;

Procedure Init;
begin

  Assign( input , fin ); reset( input );
  Assign( output , fout ); rewrite( output ); 
end;

Procedure Work;
 var
        i,now,ans       : Longint;
begin
  readln(N);
  For i:=1 to n do
  begin
    readln(A[i]);
  end;
  now:=1;
  i:=1;
  ans:=0;
  repeat
   if odd( now ) then
   begin
     while (i < n ) and not(A[i+1] < A[i])  do
     inc(i);
     inc(ans , A[i]);
   end else
   begin
     while (i < n ) and not(A[i+1] > A[i])  do
     inc(i);
     if i<>n then  dec(ans , A[i]);
   end;
   inc(now);
   inc(i)
  until i>n;
  writeln(Ans);
end;

Procedure Finish;
begin
  close( input );
  close( output );
end;

Begin
  Init;
  Work;
  Finish;
End.

• Re:一直runtime error求助各位 ，帮忙看看， (28) blackkk 2007-08-29 10:33:17