Дана квадратичная матрица. Выяснить имеются ли в ней ненулевые элементы, и если да то указать индекс хотя бы одного из них — Basic(Бейсик)

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

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

Leave a Comment