информатика1ё / Лаб4-1 / Вар4

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

Даны два массива

	-0,1	0,05	0,7	0,8	-1,5	0,2	0,4	-1	0,1	1,5
	0,1	0,3	-0,9	0,2	-0,4	0,01	1	-0,25	-0,1	-0,3

Найти:

Вариант 4

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

DIM X(10)

DATA -0.1,0.05, 0.7, 0.8, -1.5

DATA 0.2, 0.4, -1, 0.1,1.5

P = 1

FOR I = 1 TO 10

READ X(I)

P = P * (ABS(X(I))+1)

NEXT I

PRINT “ P = “; P

END

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

НАЧАЛО

I = 1

P = 1

Ввод

I = I + 1

Да

нет

ПЕЧАТЬ S

КОНЕЦ