Program z234; const n = 10; Var a: array [1..n] of integer; i,x,f:integer;Begin for i:=1 to n do begin write('A[',i,'] = '); readln(a[i]); end; for i:=1 to n do write(a[i],' '); writeln; write('Введите число = '); readln(x); f:=0; for i:=1 to n do if a[i] = x then f:=1; if f = 1 then writeln('Число ',x, ' входит в массив') else writeln('Число ',x, ' НЕ входит в массив')End.