Сформировать матрицу из элементов массива - Turbo Pascal

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

Задан двумерный массив В из 4-х строк и 4-х столбцов. Составить программу, которая организует двумерный массив, элементы главной диагонали которого равны соответствующим элементам исходного массива, а остальные элементы равны нулю.

Решение задачи: «Сформировать матрицу из элементов массива»

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

for i:=1 to 4 do a[i,i]:=b[i,i];

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

В данном коде происходит формирование матрицы из элементов массива.

Переменная a представляет собой матрицу, которую мы формируем.
Переменная b представляет собой исходный массив, из которого мы формируем матрицу a.
Цикл for выполняется от 1 до 4 (индексы матрицы начинаются с 1).
Внутри цикла происходит присваивание элементам матрицы a соответствующих элементов из массива b. То есть, элементы a[i,i] присваиваются элементы b[i,i].
После выполнения цикла, матрица a будет содержать элементы, соответствующие элементам массива b.