Question

РЕШИТЕ В ПАСКАЛЕ!!!
Дан целочисленный массив размерностью 20 элементов, заполненный случайными числами в диапазоне от 0 до 100. Определить сколько элементов этого массива равны заданному целому числу а, которое берется в этом же диапазоне.

Answer 1

Ответ:

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.

Объяснение: