JZOJ 1842——【汕头市选2014】平均

---

其实，题意简单化就是叫你求最大的一个数
直接枚举

---

代码如下：

var   max,a,i,n:longint;
begin
  max:=0;
  readln(n);
  for i:=1 to n do
    begin
      read(a);
      if a>max then max:=a;
    end;
  write(max);
end.