Дана матрица из 3 строк и 2 столбцов. Найти количество отрицательных элементов в матрице- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
CLS
DIM a(1 TO 3, 1 TO 2) AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO 3
 FOR j = 1 TO 2
   a(i, j) = RND * 45 - 22
   PRINT a(i, j);
   IF a(i, j) < 0 THEN s = s + 1
 NEXT j
NEXT i
PRINT "s="; s
END

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment