Question

Задано целое p. Напишите программу поиска элемента со значением p в целочисленном массиве из n элементов. Учтите случай, когда элемента со значением p в массиве нет.

Answer 1

p = int(input('p = '))
import random
mas = [random.randint(0,100) for i in range(0,100)]
if p in mas:
----print("Число ",p,'є в масиве!')
else:
----print("Число ",p,'НЕМА в масиве!')

Answer 2

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (n,p):=ReadInteger2('Введите n и p:');
  var a:=ArrRandom(n,-99,99); a.Println;
  var i:=a.FindIndex(t->t=p);
  if i=-1 then Writeln('Нет элемента со значением ',p)
  else Writeln($'Элемент номер {i+1} имеет значение {p}')
end.