Дан одномерный числовой массив. Вычислить в какой позиции массива встретилось число со значением 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.
Оцени ответ
