Дан одномерный числовой массив. Вычислить в какой позиции массива встретилось число со значением a.

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.