Вы можете использовать следующий код на языке Pascal для создания квадратной матрицы со случайными числами от -100 до 100, вывода её на экран и замены элементов главной диагонали на единицы:

program SquareMatrix;
uses crt;
var
matrix: array of array of Integer;
n, i, j: Integer;
begin
Clrscr;
Write${}^{\prime }Введитеразмерквадратнойматрицы(n){:}^{\prime }$;
ReadLn$n$;
// Устанавливаем размерность матрицы
SetLength$matrix,n,n$;
// Генерация случайных чисел от -100 до 100
Randomize;
for i := 0 to n - 1 do
for j := 0 to n - 1 do
matrix$$i$$$$j$$ := Random$201$ - 100; // $\mathrm{0..200}$ - 100 = $-\mathrm{100..100}$
// Вывод матрицы на экран
WriteLn${}^{\prime }Исходнаяматрица{:}^{\prime }$;
for i := 0 to n - 1 do
begin
for j := 0 to n - 1 do
Write$matrix[i][j]:4$; // Ширина вывода 4
WriteLn;
end;
// Замена элементов главной диагонали на единицы
for i := 0 to n - 1 do
matrix$$i$$$$i$$ := 1;
// Вывод изменённой матрицы на экран
WriteLn${}^{\prime }Матрицапослезаменыглавнойдиагонали{:}^{\prime }$;
for i := 0 to n - 1 do
begin
for j := 0 to n - 1 do
Write$matrix[i][j]:4$;
WriteLn;
end;
ReadLn; // Чтобы программа не закрывалась сразу
end.Как работает программа:Пользователь вводит размер квадратной матрицы n.Программа создает двумерный массив matrix, который будет представлять собой квадратную матрицу размером n x n.Используя функцию Random, программа заполняет матрицу случайными числами в диапазоне от -100 до 100.Матрица выводится на экран.Программа заменяет элементы главной диагонали $гдеиндексыравны$ на единицы.Измененная матрица также выводится на экран.

Скопируйте этот код в вашу среду для разработки Pascal и выполняйте.