Var a:array[1..100] of integer;
i,x,n,v:integer;
begin
randomize;
v:=0;
writeln('Введи размерность массива');
readln(n);
for i:=1 to n do begin a[i]:=random(5); write(a[i], ' '); end;
writeln;
writeln('Введи х');
readln(x);
for i:=1 to n do if a[i]=x then v:=v+1;
if v=0 then write('Нет элементов, равных х')
else for i:=1 to n do if a[i]=x then write(i, ' ');
end.