Дан двумерный квадратный массив. Найти номера строк, все элементы которых равны нулю.

Pascal:

uses crt;

var a: array [1 ... 100,1 ... 100] of byte;

b: array [1 ... 100] of byte;

n, i, j, k: byte;

begin

write ('Введите размер массива ');

readln (n);

writeln ('Дан массив ');

k:=0;

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i, j]:=random (2);

write (a[i, j]:2);

if a[i, j]=0 then inc (k);

end;

b[i]:=k;

k:=0;

writeln;

end;

writeln ('номера строк, все элементы которых равны нулю');

for i:=1 to n do

if b[i]=n then write (i:4);

readln;

end.