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

for i=1 to m
f=0
for j=1 to m
if a(i,j)=1 then f=1
next 
if f=0 then print"stroka=";i:t=1
next
if t=0 then print"takih strok net"
t=0
for j=1 to m
f=0
for i=1 to m
if a(i,j)=1 then f=1
next 
if f=0 then print"stolbec=";j:t=1
next
if t=0 then print"takih stolbcov net"