В двумерном массиве вычислить произведение элементов с чётными числами — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
INPUT"vvedite kolichestvo strok M ",m
INPUT"vvedite kolichestvo stolbcov N ",n
DIM b(m,n)
FOR i=1 TO m
FOR j=1 TO n
INPUT "vvedite element ",b(i,j)
NEXT
NEXT
PRINT "matrica "
FOR i=1 TO m
FOR j=1 TO n
PRINT b(i,j);
NEXT
PRINT
NEXT
p=1
for i=1 to m
for j=1 to m
if i mod 2=0 and j mod 2=0 then p=p*a(i,j)
next
next
print p

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

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

Leave a Comment