Question

Написать программу, которая проверяет, находится ли введенное с клавиатуры число в массиве. Массив также должен вводится во время программы
pascalABC.Net
прошууууу

Answer 1

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.