Question

Напишите пожалуйста программу

Answer 1

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

begin

   var a := ArrRandomInteger(Random(10, 100), 5, 35);

   Println(a);

   Println('Кол-во запрашиваемых элементов массива = ',a.Count(x -> (x mod 5 = 0) and (x mod 2 = 0)));

end.