Условие задачи
Реализовать программу, решающую следующую задачу.
Дано натуральное число n ( 3 < n < 10).
Получить квадратную матрицу размерностью n x n следующего вида:
Ответ
Текст программы Pascal
program Program2;
const
//максимальный размер матрицы
MaxSize = 10;
//создание типа Matrix (матрица)
type Matrix = array [1..MaxSize,1..MaxSize] of integer;
var M : Matrix; n : Integer; //размер i, j : Integer; //индексы текущего элемента матрицы k : Integer; //вспом...