Не знаю, есть ли в PascalABC для этого какие-либо особые инструменты (давно уже на нем не кодил), но могу привести общие для любого языка программирования.
Пусть есть двумерный массив с размерами - кол-во столбцов и строк соответственно.
1) Вручную Не самый лучший вариант с ростом кол-ва элементов
2) Вложенные циклы for Первый перебираем от 0 до N-1 (переменная j) Второй, вложенный в первый, перебираем от 0 до M-1(переменная i) Внутри - условие: если (i == M-j-1), то ставим 1, иначе - 0.
Пусть есть двумерный массив с размерами - кол-во столбцов и строк соответственно.
1) Вручную
Не самый лучший вариант с ростом кол-ва элементов
2) Вложенные циклы for
Первый перебираем от 0 до N-1 (переменная j)
Второй, вложенный в первый, перебираем от 0 до M-1(переменная i)
Внутри - условие: если (i == M-j-1), то ставим 1, иначе - 0.