Найти в матрице номера строк и столбцов, не содержащих единицы - Pascal ABC

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

Матрица K(m,m) состоит из нулей и единиц. Найти в ней номера строк и столбцов, не содержащих единицы, либо сообщить, что таких нет.

Код к задаче: «Найти в матрице номера строк и столбцов, не содержащих единицы - Pascal ABC»

textual
  q:=0;
  for i:=1 to m do begin
    j:=n; while (j>0) and (k[i,j]<>1) do Dec(j);
    if j=0 then begin
      Write(' ',i); Inc(q);
    end;
  end;
  if q=0 then Write('Таких строк нет');
  WriteLn;

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

9   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ