информатика1ё / лаб4-2 / вар17

Лабораторная работа № 4.2

Дан массив

Найти:

Вариант 17

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

Составляем программу

DIM С(5,5)

DATA -1, 0.05,0.7, 0.8, 1.5

DATA 0.2, 0.4, -1, 0.1, 1.5

DATA 2, 4, 5, 6,10

DATA 7, 3.4, 10.7, 3,2

DATA 2.4, -5.6, 7, 8, 2.7

P=1

FOR I = 1 TO 5

FOR J = 1 TO 5

READ C (I, J)

IF C ( I, J) > 0 THEN P = P * C (I, J)

NEXT J

NEXT I

PRINT “P=”; P

END

Составляем блок-схему:

НАЧАЛО

P= 1 : I = 1

J = 1

Ввод

нет

Да

P = P *

J = J + 1

Да

нет

I = I + 1

Да

нет

Печать P

КОНЕЦ