program maxelem;
const k=100;
var
x:array [1..k] of real ;
max:real;
n,i,jmax:1..k;
BEGIN
write ('введите размерность массива n ');
readln (n);
for i:=1 to n do
begin
write('введите х[',i,'] ');
readln (x[i]);
end;
max:=abs(x[1]);
for i:=2 to n do
if x[i]>max then
begin
max:=abs(x[i]);
end;
writeln('максимальный элемент', max:6:2);
END.