發表新討論
#8661: 請問那裏有錯?


twn (twn)

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.
ZeroJudge Forum