Заполните матрицу, содержащую N строк и M столбцов. 1 6 7 12 2 5 8 11 3 4 9 10заполнять...

Question

Заполните матрицу, содержащую N строк и M столбцов.
1 6 7 12
2 5 8 11
3 4 9 10
заполнять по системе "змейкой" от 1 до N*M

Comments

Чем именно заполнить? Числа брать из какого интервала, случайно сгенерировать от датчика или вводить по одному с клавиатуры?

---

Или их заполнять по системе "змейкой" от 1 до N*M ?

---

натуральными числами

---

по системе змейка

---

заполнять по системе "змейкой" от 1 до N*M

---

Ясно

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');
  var a:=new integer[n,m];
  for var j:=0 to m-1 do
    if j.IsEven then a.SetCol(j,Range(n*j+1,n*(j+1)).ToArray)
    else a.SetCol(j,Range(n*(j+1),n*j+1,-1).ToArray);
  a.Println(4)
end.

Пример
Количество строк и столбцов в матрице: 3 4
   1   6   7  12
   2   5   8  11
   3   4   9  10

Comments

спасибо)

---

Пожалуйста

---

Пояснения нужны?

---

нет,спасибо

---

Ну и славно

---

Введите 30х30 и наслаждайтесь картинкой

---

Если будут 4-х значные числа, в Println(4) увеличьте параметр до 5

---

хорошо)