задача на паскале - Матрица,2-х мерный массив

[vdv08]

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;
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!');
end;
end;
if s=0 then writeln('Takih strok i stolbcov net!');//если нет ничего
readln
end.

посмотрите подскажите как но должен выводит индексы например
вот дана матрица
1 0 1
0 0 1
1 0 1
V stolbce 2 edinic net!---это что но выдает...
а можно чтобы он выдовал индекс где нет единицы и вывести на экран по матрице на пример
V stroke 2
V stolbce 2 edinic net!

[vdv08]

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

спасибо огромное

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;
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!');
end;
end;
if s=0 then writeln('Takih strok i stolbcov net!');//если нет ничего
readln
end.

посмотрите подскажите как но должен выводит индексы например
вот дана матрица
1 0 1
0 0 1
1 0 1
V stolbce 2 edinic net!---это что но выдает...
а можно чтобы он выдовал индекс где нет единицы и вывести на экран по матрице на пример
V stroke 2
V stolbce 2 edinic net!

[vdv08]

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

Вы сами хоть знаете, что вам надо? Вам так и было сделано, но вы написали, что или строку выдает или столбец. Вам переделали, чтобы все строки и все столбцы выдавло, опять нехорошо. Сами то хоть чуть-чуть пошевелите мозгами.
Всего и нужно то, прервать циклы, как находим строку или столбец.

s:=0;
for i:=1 to n 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;

Тоже самое в столбцах.

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;
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!');
end;
end;
if s=0 then writeln('Takih strok i stolbcov net!');//если нет ничего
readln
end.

посмотрите подскажите как но должен выводит индексы например
вот дана матрица
1 0 1
0 0 1
1 0 1
V stolbce 2 edinic net!---это что но выдает...
а можно чтобы он выдовал индекс где нет единицы и вывести на экран по матрице на пример
V stroke 2
V stolbce 2 edinic net!

[puporev]

Вы уже передумали выводить условие, как оно дано в задании?
А вывести индексы элементов не равных единице проще простого:
for i:=1 to n do
for j:=1 to n do
if a[i,j]<>1 then writeln('v stroke ',i,' stolbce ',j, ' edinic net!);

[vdv08]

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

Вы уже передумали выводить условие, как оно дано в задании?
А вывести индексы элементов не равных единице проще простого:
for i:=1 to n do
for j:=1 to n do
if a[i,j]<>1 then writeln('v stroke ',i,' stolbce ',j, ' edinic net!);

вот задание
Матрица K(m,m) cостоит изнулей и единицю. Найти в ней номера (индексы) хотя бы одной строки или хотя бы одного столбца,не содержащих единицы,либо сообщить,что таковых нет.
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;
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!');
end;
end;
if s=0 then writeln('Takih strok i stolbcov net!');//если нет ничего
readln
end.
здесь не выводи столбец и строку вместе(индекс) как сказанно в задании....посмотрите....

[puporev]

Вы так и будете тренироваться на матрице 3х3? Ну, давайте.
И все-таки настоятельно советую вставить exit после readln; в обоих циклах (по строкам и столбцам). В дальнейшей переписке не вижу смысла.