Заполните матрицу, содержащую N строк и M столбцов.
1 6 7 12
2 5 8 11
3 4 9 10
заполнять по системе "змейкой" от 1 до N*M
Ответы на вопрос
Ответил Аноним
0
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
Внимание! Если программа не работает, обновите версию!
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
Ответил jemma2001
0
нет,спасибо
Ответил Аноним
0
Ну и славно
Ответил Аноним
0
Введите 30х30 и наслаждайтесь картинкой
Ответил Аноним
0
Если будут 4-х значные числа, в Println(4) увеличьте параметр до 5
Ответил jemma2001
0
хорошо)
Новые вопросы