Так как вы не указали: тип массива, способ его задания, я предлагаю вам такой вариант:
Код:
const
n=20;
var
x:array [1..n] of integer;
i,max,m:integer;
begin
randomize;
max:=-1000;
for i:=1 to n do begin
x[i]:=random(100);
write (x[i],' ');
if x[i]>max then
begin
max:=x[i];
m:=i;
end;
end;
x[m]:=0;
writeln;
for i:=1 to n do
write (x[i],' ');
readln
end.