Определить номера столбцов, которые содержат нулевые элементы для каждой строки матрицы - Turbo Pascal

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

Определить номера столбцов, которые содержат нулевые элементы для каждой строки двухмерного массива(Можно на С++ или Паскале) Помогите пж.

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

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

  Write('Искомые столбцы:');
  for j:=1 to n do begin
    i:=m; while (i>0) and (y[i,j]=0) do Dec(i);
    if i=0 then begin
      Write(' ',j); f:=True;
    end;
  end;
  if f then WriteLn 
  else WriteLn(' отсутствуют');

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

В этом коде используется цикл for для прохода по всем столбцам матрицы. Для каждого столбца выполняется следующий код:

Переменная i инициализируется значением m (размер строки матрицы).
Пока i больше 0 и элемент матрицы y[i,j] равен 0, уменьшается значение i на 1.
Если i равно 0, то выводится название столбца и его номер, а также устанавливается флаг f в True.
В конце цикла проверяется значение флага f. Если он равен True, то выводится символ новой строки, иначе выводится сообщение о том, что нулевые элементы отсутствуют.