Дан двумерный массив A(N,M). Найти произведение и количество положительных элементов, стоящих в строках с четными индексами — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
INPUT "vvedite kol-vo strok ", n
INPUT "vvedite kol-vo stolbcov ", m
DIM a(n, m)
RANDOMIZE TIMER
PRINT "massiv"
FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = INT(RND * 20) - 10
PRINT a(i, j);
NEXT
PRINT
NEXT
p = 1
FOR i = 1 TO n
FOR j = 1 TO m
IF i MOD 2 = 0 AND a(i, j) > 0 THEN kol = kol + 1: p = p * a(i, j)
NEXT
NEXT
PRINT "kol-vo="; kol; " proizvedenie="; p

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

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

Leave a Comment