ПОМОГИТЕ ПРОВЕРИТЬ ЗАДАЧКУ НА ПАСКАЛЕ!Матрица,2-Х мерный массив!

[vdv08]

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

Зарание все огромное спасибо!!
Вот задачка,посмотрите она выдает номе строки или номер столбца...Как можно сделать чтобы она выводила индексы(например: в столбце2 и строки 2 нет единиц
А ВОТ ЧТО ОН ВЫДАЕТ:
1 0 0
1 0 0
1 0 1
V stolbce 2 edinic net! )

const
m = 3;
var
i,j,k,s:byte;
a: array[1..m, 1..m] of byte;
begin
randomize;
for i := 1 to m do //заполнение матрицы и вывод на экран
begin
for j := 1 to m do
begin
a[i, j] := random (2);
write(a[i, j]:2)
end;
writeln
end;
s:=0;
for i:=1 to m do
begin
k:=0;
for j:= 1 to m do
if a[i,j]=1 then k:=k+1;//считаем единицы в строке
if k=0 then //если нет
begin
s:=1; //фиксируем
writeln('V stroke ',i,' edinic net!');//выводим сообщение
readln;
exit
end;
end;

for j:=1 to m do
begin
k:=0;
for i:= 1 to m do
if a[i,j]=1 then k:=k+1; //то же в столбцах
if k=0 then
begin
s:=1;
writeln('V stolbce ',j,' edinic net!');
exit
end;
end;
if s=0 then writeln('Takih strok i stolbcov net!');//если нет ничего
readln
end.

[eoln]

Опять двадцать пять

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

Зарание все огромное спасибо!!
Вот задачка,посмотрите она выдает номе строки или номер столбца...Как можно сделать чтобы она выводила индексы(например: в столбце2 и строки 2 нет единиц
А ВОТ ЧТО ОН ВЫДАЕТ:
1 0 0
1 0 0
1 0 1
V stolbce 2 edinic net!

Вы с матрицами работать умеете? Где в задачи сказано про элементы матрицы? Чёрным по белому написано про строки и столбцы
Красным цветом выделен столбец 2
1 0 0
1 0 0
1 0 1
В столбце 2 единиц нет

Синим цветом выделена строка 2
1 0 0
1 0 0
1 0 1
В строке 2 единицы есть!!!

[vdv08]

Сообщение от eoln

Опять двадцать пять
Вы с матрицами работать умеете? Где в задачи сказано про элементы матрицы? Чёрным по белому написано про строки и столбцы
Красным цветом выделен столбец 2
1 0 0
1 0 0
1 0 1
В столбце 2 единиц нет

Синим цветом выделена строка 2
1 0 0
1 0 0
1 0 1
В строке 2 единицы есть!!!

умею работать вы посмотрите на задание вывести индексы....

[eoln]

Найти в ней номера (индексы) хотя бы одной строки

Смотрю и не понимаю. Написано номера - программа их выдаёт. В скобках почему-то написано "индексы", то бишь элементы которые всегда = 0 для данной задачи... какой смысл их выводить?

[vdv08]

Сообщение от eoln

Смотрю и не понимаю. Написано номера - программа их выдаёт. В скобках почему-то написано "индексы", то бишь элементы которые всегда = 0 для данной задачи... какой смысл их выводить?

Сам не понимаю.....а как их вывести вы не знаете,не плдскажите?

[Alter]

по вашему, номер строки или столбца не индекс?
по задаче требуется найти НОМЕР(он же по другому называется ИНДЕКС). Непредставляю что тут ещё можно сказать.

[eoln]

const
  m = 3;
var
  i,j,k,s,f:byte;
  a: array[1..m, 1..m] of byte;
begin
  randomize;
  for i := 1 to m do {//заполнение матрицы и вывод на экран}
  begin
    for j := 1 to m do
    begin
      a[i, j] := random (2);
      write(a[i, j]:2)
    end;
    writeln
  end;
  s:=0;
  for i:=1 to m do
  begin
    k:=0;
    for j:= 1 to m do
    if a[i,j]=1 then k:=k+1;{//считаем единицы в строке}
    if k=0 then {//если нет}
    begin
      s:=1; {//фиксируем}
      writeln('V stroke ',i,' edinic net!');{//выводим сообщение}
      {readln;
      exit}
      for f:=1 to m do writeln('(',f,', ',i,')')//вывод индексов
    end;
  end;

  for j:=1 to m do
  begin
    k:=0;
    for i:= 1 to m do
    if a[i,j]=1 then k:=k+1; {//то же в столбцах}
    if k=0 then
    begin
      s:=1;
      writeln('V stolbce ',j,' edinic net!');
      {exit}
      for f:=1 to m do writeln('(',j,', ',f,')')//вывод индексов
    end;
  end;
  if s=0 then writeln('Takih strok i stolbcov net!');{//если нет ничего}
  readln
end.

Вывод индексов - координаты ячейки в формате (стобец, строка)

Сообщение от Alter

по вашему, номер строки или столбца не индекс?
по задаче требуется найти НОМЕР(он же по другому называется ИНДЕКС). Непредставляю что тут ещё можно сказать.

Один из индексов