Заполнить случайным образом массив из 20 чисел элементами от 0 до 100, найти количество...

Question

Заполнить случайным образом массив из 20 чисел элементами от 0 до 100, найти количество чисел кратных 15

Answer 1

Begin 
var a := ArrRandom(20, 0, 100); 
a.Println(); 
writeln(a.Where(x -> x mod 15 = 0).Count());
end.