const nx =30;var i,j,n,a:integer;
M,B:array[1..nx] of integer;
begin
Randomize;
write('Введите число элементов массива n'); Read(n);
write('Введите число а '); Read(a);
for i:=1 to n do begin
M[i]:= random(10)-5;
if M[i] = a then begin j:=j+1;B[j]:=i;end;
write(M[i]:3);end;writeln;
for i:=1 to j do
writeln('Элемент массива совпадает а = ' ,a, ' на позиции ', B[i]);end.