Найти количество положительных элементов матрицы, расположенных ниже главной диагонали - Turbo Pascal

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

Дан целочисленный массив (1..3,1..5) найти количество положительных элементов этого массива,расположенных ниже главной диагонали

Решение задачи: «Найти количество положительных элементов матрицы, расположенных ниже главной диагонали»

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

uses crt;
const m=3;
      n=5;
var a:array[1..m,1..n] of integer;
    i,j,k:integer;
begin
clrscr;
randomize;
k:=0;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-25+random(51);
    write(a[i,j]:4);
    if (j<i)and(a[i,j]>0) then k:=k+1;
   end;
  writeln;
 end;
write('Количество положительных нмже главной диагонали=',k);
readln
end.

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

В начале кода подключается библиотека crt, которая используется для работы с потоками ввода-вывода в Turbo Pascal.
Затем определяются две константы: m и n. Переменная m инициализируется значением 3, а переменная n инициализируется значением 5. Эти значения представляют собой размеры матрицы, которую мы будем заполнять.
Далее объявляется переменная a типа array[1..m,1..n] of integer. Эта переменная представляет собой матрицу размером m на n, в которой каждый элемент имеет тип integer.
Затем объявляются три переменные: i, j и k. Эти переменные будут использоваться для итерации по матрице и подсчета количества положительных элементов.
В блоке begin выполняется цикл for i:=1 до m do, который перебирает все элементы матрицы по строкам.
Внутри цикла выполняется еще один цикл for j:=1 до n do, который перебирает все элементы матрицы по столбцам.
Внутри второго цикла переменная a[i,j] инициализируется значением -25+random(51), что генерирует случайное число от -25 до 50 для каждого элемента матрицы.
Затем выполняется операция write(a[i,j]:4), которая выводит значение элемента a[i,j] в консоль.
Если значение элемента a[i,j] положительное и находится ниже главной диагонали (т.е. j меньше i), то переменная k увеличивается на 1.
После завершения второго цикла выполняется операция write('Количество положительных нмже главной диагонали=',k), которая выводит количество положительных элементов ниже главной диагонали в консоль.
Наконец, функция readln() вызывается для чтения ввода пользователя и завершения программы.