const n=16;
var i: integer;
a: array [1..n] of integer;
begin
for i:=1 to n do
begin
a[i]:=random(21)-10;
write (a[i],' ')
end;
writeln;
for i:=1 to n do
if a[i] = 0 then write (a[i],' ')
end.
Можно заменить 12 строку на if a[i] = 0 then writeln (a[i],' и его номер ',i), если нужно выводить не элемент, а его номер.