Найти произведение элементов главной диагонали и найти разность максимальных элементов 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
rem lab 4
DIM A(7,7)
FOR i =1 TO 7
FOR j=1 TO 7
INPUT A(i,j)
NEXT j
NEXT i
P=1
FOR i =1 TO 7
P=P*A(i,i)
NEXT i
PRINT P
max1=A(1,1)
max3=A(3,1)
FOR j =2 TO 7
IF A(1,j) >max1 THEN max1=A(1,j)
IF A(3,j) >max3 THEN max3= A(3,j)
NEXT j
R=max3 - max1
PRINT R
END

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

Leave a Comment