задать массив случайным образом из промежутка от - 5 до 23. Если там число 12?Если есть, вывести "есть", если нет, то вывести "нет"
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
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.
Объяснение:
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.