<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var k:=ReadInteger('k=');
var i:=a.FindIndex(x->x=k);
if i=-1 then Writeln('нет')
else Writeln('да')
end.
<u>Примеры</u>
n= 15
43 -58 43 62 60 -32 60 50 73 99 -75 98 6 -42 79
k= 73
да
n= 8
-86 30 47 -75 85 32 -70 83
k= 10
нет
1=>23
1) 1*3=3(1)
2)3*3=9(1)
3)9-1=8(2)
4)8*3=24(1)
5)24-1=23(2)
Ответ: 11212
Процессор, постоянная память, USB-порт, оперативная память
я не знаю чего вы все добиваетесь
<span>Языки, придуманные и разработанные человеком для определенных целей?
Ответ. б формальный.</span>