Question

Имеется массив А (1.h). Найти элемент массива, равный P

Answer 1

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('h='),-99,99); a.Println;
  var p:=ReadInteger('P=');
  var i:=a.FindIndex(t->t=p);
  if i>=0 then Writeln('Номер элемента ',i+1)
  else Writeln('Нет такого элемента')
end.

Примеры
h= 20
-57 15 -50 89 -25 -85 -75 12 57 92 61 1 36 -78 4 -1 30 12 16 -71
P= 66
Нет такого элемента

h= 13
15 86 57 69 -58 -78 -20 14 -63 -92 -16 -40 73
P= 14
Номер элемента 8

Answer 2

const nmax=100;
var a:array[1..nmax] of integer;    
n,i,j,р:integer;
begin randomize;
repeat write('Размер массива А от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив A');
for i:=1 to n do  begin   a[i]:=random(112);  
write(a[i]:4)  end;
writeln; write('Введите число для поиска р=');
readln(b); i:=1; {встаем в начало массива}
j:=0;{пока числа Р нет}
while (i<=n)and(j=0) do{пока не конец массива и не нашли}
if a[i]=b then j:=1{если нашли, все}
else i:=i+1;{иначе идем дальше}
if j=1 then write('Число ',b,' в массиве есть')
else write('Числа ',р,' в массиве нет');
end.