В строках с отрицательными элементами на главной диагонали найти сумму всех элементов- Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
INPUT"vvedite razmer matricy N= ",n
DIM a(n,n)
RANDOMIZE TIMER
FOR i=1 TO n
FOR j=1 TO n
a(i,j)=INT(RND*21)-10
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
s=0
IF a(i,i)<0 THEN FOR j=1 TO n: s=s+a(i,j):NEXT: PRINT"stroka ";i;" summa=";s
NEXT

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

Leave a Comment