d074. 電腦教室 -- 板橋高中教學題 | From: [202.175.26.131] | 發表日期 : 2014-03-02 11:27

var n,i,a,max:longint;

    b:array[1..100000] of longint;

begin

read(n);

for i:=1 to n do

read(b[i]);

for i:=1 to n-1 do

b[1]:=max;

if b[i+1]>=b[i] then max:=b[i+1];

if b[i+1]<b[i] then max:=b[i];

writeln(max);

readln;

end.