Question

Прошу Помогите пожалуйста
Сформировать массив (4,5), состоящий из целых случайных чисел из интервала от -50 до 70. Вычислить в данном массиве кол-во элементов- кратных 3, 5 , 7 (паскаль)

Answer 1

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