Выделить и сменить коротко
Ответ на Ваш вопрос - это "источник".
Var
a:array[1..35]of integer;
i,max,n:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
for i:=1 to n do
if a[i]>max then
max:=a[i];
writeln;
writeln(max);
end.
0,0041·10² = 0,41·10⁰
-16,78·10⁻³ = -0.1678·10⁻¹