В матрице B(6,8) найти в каждой строке отрицательные элементы среди четных — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
DIM b(6, 8)
RANDOMIZE TIMER
FOR i = 1 TO 6
FOR j = 1 TO 8
b(i, j) = INT(RND * 10) - 4
NEXT
NEXT
PRINT "ishodnaya matrica"
FOR i = 1 TO 6
FOR j = 1 TO 8
PRINT b(i, j); " ";
NEXT
PRINT
NEXT
PRINT "otricatelnye sredi chetnyh"
FOR i = 1 TO 6
PRINT "stroka "; i; " otricatelnye and chetnye:=";
FOR j = 1 TO 8
IF (b(i, j) MOD 2 = 0) AND (b(i, j) < 0) THEN PRINT b(i, j); " ";
NEXT
PRINT
NEXT

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

Leave a Comment