PascalABC.NET 3.6.2
begin
var B := ArrRandom(20, 0, 100);
var a := Random(100);
B.println; a.println;
B.Where(p -> p = a).Count.Println;
end.
Объяснение:
PascalABC.NET 3.6.2
begin
var B := ArrRandom(20, 0, 100);
var a := Random(100);
B.println; a.println;
B.Where(p -> p = a).Count.Println;
end.
Объяснение: