Выяснить имеются ли в матрице ненулевые элементы - QBasic

Формулировка задачи:

дана квадратичная матрица.выяснить имеются ли в ней ненулевые элементы,и если да то указать индекс хотя бы одного из них Помогите пожалуйста!

Код к задаче: «Выяснить имеются ли в матрице ненулевые элементы - QBasic»

textual
INPUT "vvedite kol-vo strok ", n
DIM a(n, n)
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1 TO n
a(i, j) = INT(RND * 2)
NEXT
NEXT
PRINT "matrica"
FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO n
FOR j = 1 TO n
IF a(i, j) <> 0 THEN PRINT "nenulevye elementy est a("; i; ","; j; ")="; a(i, j): f = 1: END
NEXT
NEXT
IF f = 0 THEN PRINT "nenulevyh elementov net"

5   голосов, оценка 4.400 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы