Заменить все элементы матрицы на квадратный корень элементов - Turbo Pascal

Формулировка задачи:

Помогите написать программу В двумерном массиве целочисленных чисел нужно заменить все элементы массива на квадратный корень этих элементов. Заранее спасибо)

Решение задачи: «Заменить все элементы матрицы на квадратный корень элементов»

Листинг программы

uses crt;
var a:array[1..25,1..25] of real;
i,j,n,m:byte;
begin
Randomize;
writeln('vvedi kol-vo strok');
readln(n);
writeln('vvedi kol-vo stolbcov');
readln(m);
writeln('Matrix');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(15)-4;
write(a[i,j]:5:0);
end;
writeln;
end;
writeln;
writeln('New Matrix');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=sqr(a[i,j]);
write(a[i,j]:5:0);
end;
writeln;
end;
end.

Объяснение кода листинга программы

Этот код написан на Turbo Pascal и выполняет следующие действия:

В начале кода подключается библиотека crt, которая используется для работы с потоками ввода-вывода.
Затем объявляются переменные: a - это матрица размером n x m, где n - количество строк, m - количество столбцов. Также объявлены три байтовых переменных: i, j и n, которые будут использоваться для итерации по матрице.
Функция Randomize вызывается для инициализации генератора случайных чисел.
Пользователю предлагается ввести количество строк и количество столбцов матрицы.
Выводится сообщение Matrix, чтобы указать, что будет заполнена матрица.
Для каждой строки матрицы (от 1 до n) выполняется цикл, в котором для каждого столбца (от 1 до m) выполняется цикл.
Внутри каждого цикла вычисляется случайное число от 1 до 15 и вычитается из 4, чтобы получить число от -3 до -1. Это значение затем присваивается элементу матрицы a[i,j].
После заполнения матрицы выводится сообщение New Matrix, чтобы указать, что будет вычислен квадратный корень каждого элемента матрицы.
Для каждой строки матрицы (от 1 до n) выполняется цикл, в котором для каждого столбца (от 1 до m) выполняется цикл.
Внутри каждого цикла вычисляется квадратный корень элемента матрицы a[i,j] с помощью функции sqr.
Выводится значение элемента матрицы a[i,j] с точностью до 5 знаков после запятой.
После вычисления всех элементов матрицы выводится сообщение end, чтобы указать, что код завершен.