Найти произведение положительных элементов массива

@Dreams · Регистрация: 15.02.2010

Author24 — интернет-сервис помощи студентам

Найти произведение положительных элементов массива A(N,M).

@кот Бегемот · 26.04.2010, 21:23

Сообщение от Dreams

Найти произведение положительных элементов массива A(N,M).

PureBasic

INPUT"vvedite kolichestvo strok N ",n
INPUT"vvedite kolichestvo stolbcov M ",m
DIM a(n,m)
FOR i=1 TO n
FOR j=1 TO m
INPUT "vvedite element ",a(i,j)
NEXT
NEXT
FOR i=1 TO n
FOR j=1 TO m
PRINT a(i,j);
NEXT
PRINT
NEXT
p=1
FOR i=1 TO n
FOR j=1 TO m
if a(i,j)>0 then p=p*a(i,j)
NEXT
PRINT
NEXT
print"proizvedenie=";p

@Dreams 0 / 0 / 0 Регистрация: 15.02.2010 Сообщений: 7
		1
	Найти произведение положительных элементов массива 26.04.2010, 21:11. Показов 1215. Ответов 1 Метки нет (Все метки) Найти произведение положительных элементов массива A(N,M). 0

	26.04.2010, 21:23

Найти произведение положительных элементов массива

Решение