Вывести элементы выше главной диагонали матрицы в виде треугольника - PascalABC.NET

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

Дан массив A(5,5). Вывести ее в элементы выше главной диагонали в треугольном виде(т.е напечатать элементы верхнего треугольника в виде треугольника). Заранее спасибо!

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

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

  writeln('Верхний треугольник');
  for i := 1 to n - 1 do
    begin
      Write(' ' * 3 * i);
      for j := i + 1 to n do
        write(a[i, j]:3);
      writeln;
    end;

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

В данном коде на языке PascalABC.Net выводится верхний треугольник матрицы.

writeln('Верхний треугольник'); — вывод названия Верхний треугольник
for i := 1 to n — 1 do — цикл для прохода по всем элементам верхней половины матрицы, начиная с 1 строки и до n-1 (так как последняя строка будет выводиться отдельно)
begin — начало блока оператора
Write(' ' * 3 * i); — вывод пробелов для создания треугольного вида (3 пробела на каждую строку)
for j := i + 1 to n do — вложенный цикл для прохода по всем элементам строки от i+1 до n
write(a[i, j]:3); — вывод значения элемента матрицы a[i, j] длиною 3 символа
writeln; — переход на новую строку
end; — конец блока оператора Данный код выводит элементы матрицы выше главной диагонали в виде треугольника, где каждый элемент выводится на отдельной строке, а перед каждым элементом выводится соответствующее количество пробелов для создания треугольного вида.