`* Pascal:`

`" "`

program moyenne;
uses crt;
var N, indi, max, x: longint;

begin
    clrscr;
    readln(N);
    
    max := low(longint);
    for indi := 1 to n do 
    begin
        read(x);
        if x > max then
            max := x;
    end;
    
    writeln(max);
    
    readln
end.

$\color{#e6ffff}{\text{___}}$ $\color{#ccffff}{\text{___}}$ $\color{#b3ffff}{\text{___}}$ $\color{#99ffff}{\text{___}}$ $\color{#80ffff}{\text{___}}$ $\color{#66ffff}{\text{___}}$ $\color{#4dffff}{\text{___}}$ $\color{#33ffff}{\text{___}}$ $\color{#1affff}{\text{___}}$ $\color{#00ffff}{\text{___}}$ $\color{#00e6e6}{\text{___}}$ $\color{#00cccc}{\text{___}}$ $\color{#00b3b3}{\text{___}}$ $\color{ #009999}{\text{___}}$ $\color{#008080}{\text{___}}$ $\color{#006666}{\text{___}}$ $\color{#004d4d}{\text{___}}$ $\color{#003333}{\text{___}}$

`" "`

`*` Trung bình cộng của một dãy số sẽ luôn bé hơn hoặc bằng giá trị lớn nhất trong dãy đó

`*` Trung bình cộng dãy con còn có thể là `x_1 / 1, x_2 / 1, ..., x_n / 1`. Giá trị trung bình lớn nhất sẽ là giá trị lớn nhất của dãy `x`.