PascalABC.NET 3.2
begin
var B := MatrRandom(4, 5, -50, 70);
println('Исходный массив:');
B.Println;
println('Кратных 3:', B.Rows.SelectMany(x->x).Where(x->x mod 3 = 0).Count);
println('Кратных 5:', B.Rows.SelectMany(x->x).Where(x->x mod 5 = 0).Count);
println('Кратных 7:', B.Rows.SelectMany(x->x).Where(x->x mod 7 = 0).Count);
end.
Пример вывода:
Исходный массив:
13 31 34 -30 24
34 55 9 16 66
-38 -50 44 53 18
-20 -4 -49 -42 -3
Кратных 3: 7
Кратных 5: 4
Кратных 7: 2
