Прошу Помогите пожалуйстаСформировать массив (4,5), состоящий из целых случайных чисел из

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

Задать свой вопрос
1 ответ
PascalABC.NET 3.2
begin
  var B := MatrRandom(4, 5, -50, 70);
  println('Начальный массив:');
  B.Println;
  println('Кратных 3:', B.Rows.SelectMany(x-gt;x).Where(x-gt;x mod 3 = 0).Count);
  println('Кратных 5:', B.Rows.SelectMany(x-gt;x).Where(x-gt;x mod 5 = 0).Count);
  println('Кратных 7:', B.Rows.SelectMany(x-gt;x).Where(x-gt;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 
Veronika Tamosheva
круто, теснее с матрицами можно работать)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт