Массив из 10 целых положительных чисел задан случайным образом из отрезка от 0 до 100....

Question

Массив из 10 целых положительных чисел задан случайным образом из отрезка от 0 до 100. Определить есть ли среди его элементов числа равные 75.

Comments

язык?

---

паскаль

Answer 1

Ответ:

PascalABC.NET 3.6.2

begin

 var a := ArrRandom(10, 0, 100);

 a.Println; //Для проверки  

 if a.Count(p -> p = 75) > 0 then print('Yes') else Print('No');

end.

Объяснение:

Comments

if a.Any(p -> p = 75) then работает эффективнее, потому что прекращает просмотр при первом же True