В матрице замените нулями все ее элементы расположенные на главной диагонали и выше - Turbo Pascal

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

Пусть дана вещественная квадратная матрица порядка 12. Замените нулями все ее элементы расположенные на главной диагонале и выше!

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

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

const
  n = 12;
 
var
  a: array[1..n, 1..n] of integer;
  i, j: integer;
 
begin
  randomize;
  writeln('Source Array:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(10);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  for i := 1 to n do
    for j := i to n do
      a[i, j] := 0;
  writeln('Changed Array:');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:4);
    writeln;
  end;
  readln;
end.

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

В данном коде используется язык программирования Turbo Pascal. Он предназначен для создания и выполнения программ на компьютере. В первой части кода объявляются две переменные: n и a. Переменная n инициализируется значением 12, а переменная a представляет собой массив целых чисел размером n на n. Затем начинается цикл, который выполняется 12 раз (так как n=12). Внутри этого цикла выводится исходное значение каждого элемента массива a. Далее начинается вложенный цикл, который также выполняется 12 раз (так как n=12). Внутри этого цикла каждый элемент массива a инициализируется случайным числом от 0 до 9 (так как random(10) возвращает случайное число от 0 до 9). Затем значение элемента выводится на экран. После окончания вложенного цикла внешний цикл продолжается. Затем каждый элемент массива a инициализируется нулем. В конце кода программа просит пользователя ввести что-то, после чего она завершается.