Записать на место отрицательных элементов матрицы нули - Pascal (8750)

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

дана квадратная матрица A [n,n].записать на место отрицательных элементов матрицы нули. а на место положительных единицы. вывести на печать нижную треугольную матрицу в общепринятом виде

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

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

uses crt;
const n=5;
var a: array[1..n,1..n] of integer; 
      i,j: byte;
begin
 randomize;
 clrscr;
 writeln('исходный массив: ');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(19)-9;
     write(a[i,j]:3);
    end;
   writeln;
  end;
 writeln;
 writeln('матрица после преобразования: ');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if a[i,j]<0 then a[i,j]:=0
     else if a[i,j]>0 then a[i,j]:=1;
     write(a[i,j]:3);
    end;
   writeln;
  end;
 writeln;
 writeln('элементы нижнего треугольника: ');
 for i:=2 to n do
  begin
   for j:=1 to i-1 do
    write(a[i,j]:3);
   writeln;
  end;
end.

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

В начале кода подключается библиотека crt, которая обеспечивает работу с числовыми типами данных.
Затем определяется константа n, которая определяет размерность матрицы (в данном случае равна 5).
Далее объявляются переменные a и i, которые представляют собой матрицу и индексы соответственно. Переменная j также объявляется, но она будет использоваться только внутри цикла.
После этого происходит инициализация матрицы случайными числами от -9 до 9.
Выводится исходная матрица.
Затем происходит преобразование матрицы: для каждого элемента матрицы проверяется его значение. Если элемент отрицательный, то он заменяется на 0, если положительный - то на 1.
Выводится преобразованная матрица.
Далее выводятся элементы нижнего треугольника матрицы. Для этого происходит цикл по строкам матрицы, начиная со второй строки.
Внутри цикла выводятся элементы, которые находятся слева от текущей строки.
После завершения внутреннего цикла выводится символ новой строки.
Конец программы.