Работа с массивами - Pascal (88412)

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

Здравствуйте! Нужна помощь студенту специальности далёкой от программирования. Помогите кто чем сможет Необходимо сгенерировать матрицу случайных чисел размерностью 5 на 5 и в соответствии с имеющимся шаблоном (Шаблон: нижний левый треугольник - белый) сформировать итоговый массив по следующему правилу: если в шаблоне позиция зачернена, то в этой позиции в итоговую матрицу записывается число из той же позиции из исходной матрицы, иначе записывается 0.

Решение задачи: «Работа с массивами»

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

for i:=1 to n do
begin
  for j:=1 to n do
  begin
    arr[i,j]:=random(n*n)+1;
    if i>j then
    b[i,j]:=0
    else
    b[i,j]:=arr[i,j];
    write(b[i,j]:4);
  end;
  writeln;
end;

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

В данном коде выполняется обход матрицы размером n на n, заполнение ее элементов случайными числами, а также вычисление и вывод на экран главной диагонали матрицы.

Переменная i принимает значения от 1 до n.
Переменная j принимает значения от 1 до n.
Элементы матрицы arr[i,j] заполняются случайными числами в диапазоне от 1 до n*n+1.
Если i>j, то элементы матрицы b[i,j] заполняются нулями.
В противном случае, элементы матрицы b[i,j] заполняются значениями элементов матрицы arr[i,j].
Элементы матрицы b[i,j] выводятся на экран с точностью до 4 знаков после запятой.
После завершения внутреннего цикла, выводится символ новой строки.
После завершения внешнего цикла, выводится символ новой строки.