Для генерации такой матрицы, где строки/столбцы нумеруются на побочной диалонали, нужно знать условие, которому соответствует элемент побочной диалонали.
Aij - элемент побочной диагонали квадратной матрицы А тогда и только тогда, когда i = N - j, где N - размерность матрицы А.
Код на рисунке 1.
Используем закон де Моргана и закон двойного отрицания.
Решение во вложении.
===== PascalABC.NET =====
begin
var (a, b, x) := ReadInteger3;
if x = 1 then
Print('Сумма', a + b)
else if x = 2 then
Print('Разность', a - b)
end.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
N, M: ЦЕЛ;
УКАЗ
Вывод.Цепь("Введите число тюльпанов на грядке: ");
N := Приём.Число();
Вывод.Цепь("^Введите число лилий на грядке: ");
M := Приём.Число();
Вывод.ЧЦел("^Всего цветов Оля посадила: %d шт.", 5 * N + 7 * M, 0, 0, 0)
КОН Задание.