Посчитать произведение всех ненулевых элементов матрицы - Free Pascal

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

посчитать произведение всех ненулевых элементов массива Т[1.3,1.3]

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

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

Var
  T:array [1..3,1..3] of Byte;
  I,J,Count:Byte;
Begin
  Randomize;
  For I:=1 to 3 do begin
    For J:=1 to 3 do begin
      T[I,J]:=Random(2);// budet zapisivatj ili 0 ili 1
      Write(T[I,J]:2);
    end;
    WriteLn;
  end;
  For I:=1 to 3 do begin
    For J:=1 to 3 do begin
      If T[I,J]=0 then //proverka na 0
        Inc(Count);
    end;
  end;
  WriteLn('Kol-vo 0: ',Count);
  ReadLn;
End.

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

Объявляются переменные: — T: массив размером 3x3 элементов типа Byte; — I, J, Count: переменной типа Byte.
Инициализируется генератор случайных чисел.
Заполняется массив T случайными значениями 0 или 1.
Выводится на экран содержимое массива T в шестнадцатеричном формате.
После каждой итерации цикла со счетчиком Count, который увеличивается на единицу при каждой встрече с ненулевым элементом массива T.
В конце выводится на экран количество ненулевых элементов массива T.
Программа ожидает ввода с клавиатуры для завершения работы.