Задано целое p. напишите программу поиска элемента со значением p в целочисленном массиве из n элементов. учтите случай, когда элемента со значением p в массиве нет.
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.
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,'НЕМА в масиве!')
Внимание! Если программа не работает, обновите версию!
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.
import random
mas = [random.randint(0,100) for i in range(0,100)]
if p in mas:
----print("Число ",p,'є в масиве!')
else:
----print("Число ",p,'НЕМА в масиве!')