Ответ:
Var x,i:integer;
Begin
For i:=1 to 6 do
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.
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.