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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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"

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment