Найти произведение элементов главной диагонали. Найти разность максимальных элементов 1-й и 3-й строк- Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
DIM a(7, 7)
RANDOMIZE TIMER
FOR i = 1 TO 7
FOR j = 1 TO 7
a(i, j) = INT(RND * 20)
NEXT
NEXT
PRINT "massiv"
FOR i = 1 TO 7
FOR j = 1 TO 7
PRINT a(i, j);
NEXT
PRINT
NEXT
p=1
FOR i = 1 TO 7
p=p*a(i,i)
NEXT
PRINT"proizvedenie glavnoy diagonali=";p
max1=a(1,1)
max3=a(3,1)
FOR j=1 TO 7
IF a(1,j)>max1 THEN max1=a(1,j)
IF a(3,j)>max3 THEN max3=a(3,j)
NEXT
PRINT"raznost maximalnyh elementov max1-max3=";max1-max3

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

Leave a Comment