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

Question

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

Answer 1

//PascalABC.NET 3.1 сборка 1200
begin
  PrintLn(ArrRandom(30, 0, 500).Println().ToArray
    .Where(x->x mod 20 = 0).Println()
    .Count);
end.