Question

Составить блок схему и написать программу на языке программирования QBASIC. Дан двухмерный массив А из 4 строк и 7 столбцов. Найти количество отрицательных элементов массива. Кто понимает как решить помогите плиз!

Answer 1

CLS
N = 0
DIM A(4, 7)
DATA 51,22,33,44,-25,76,-87
DATA 229,30,-81,882,43,84,85
DATA 37,88,99,10,34,33,23
DATA 34, 55, 66, -77, 86, 65, 32, 91
FOR i = 1 TO 4
FOR j = 1 TO 7
READ A(i, j)
PRINT A(i, j);
IF A(i, j) < 0 THEN
N = N + 1
END IF
NEXT j
PRINT
NEXT i
PRINT
PRINT "N ="; N