Заменить нулями те числа, величина которых по модулю больше максимального числа.

program hhh;
Uses crt;
 Var x:array [1..100] of integer;
     i,n,max:integer;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
Max:=x[1];
for i:=1 to n do
  if x[i]>=max then
            max:=x[i];
Writeln (' Maxim element = ',max);
Writeln;
Writeln (' OtBeT ');
for i:=1 to n do
  if abs(x[i])>max then x[i]:=0;
for i:=1 to n do
write (x[i],' ');
Readln
end.

program hhh;
Uses crt;
Const n=20;
 Var x:array [1..n] of integer;
     i,n,max:integer;
begin
clrscr;
randomize;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
Writeln (' polycheny chisla ');
for i:=1 to n do begin
x[i]:=random(41)-20;
write (x[i],' ');
end;
writeln;
Max:=x[1];
for i:=1 to n do
  if x[i]>=max then
            max:=x[i];
Writeln (' Maxim element = ',max);
Writeln;
Writeln (' OtBeT ');
for i:=1 to n do
  if abs(x[i])>max then x[i]:=0;
for i:=1 to n do
write (x[i],' ');
Readln
end.