Программа на Паскале. (В задании язык не уточняли)
var i, N, max, r: integer;
begin writeln('Введите кол-во учеников');
readln (N);
writeln('Вводите рост учеников в см через пробел');
max:=0;
for i:=1 to n do
begin read(r);
if (r>max) then max:=r;
end;
writeln(max);
readln;
end.