Program z7_72;
uses crt;
const n=20;
var x:array[1..100] of integer;
i,j,max:integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do begin
x[i]:=random(50)-50;
write(x[i]:7);end;
writeln;
max:=abs(x[1]);
for i:=2 to n do
if abs(x[i])>max then
begin
max:=abs(x[i]);
j:=-max;
end;
writeln('max=', j:6);
readln;
END.