Question

задать массив случайным образом из промежутка от - 5 до 23. Если там число 12?Если есть, вывести "есть", если нет, то вывести "нет"​

Answer 1

Ответ:

Var x,i:integer;

Begin

For i:=1 to 6 do

Begin

 x:=22+random(304);

 If (x>=60) and (x<=100) then Writeln(x);

End;

End.

Объяснение:

Answer 2

PascalAbc.Net

begin

 var a := ArrRandomInteger(50, -5, 23); a.Println;

 var v := a.Where(x -> x = 12);

 if (v.Any = true) then Print('Есть')  

 else Print('Нет');

end.