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

Лабораторная работа № 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

Найти:

Вариант 10

Сумму всех положительных

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

DIM Y(10)

DATA 0.1, 0.3,-0.9, 0.2, -0.4

DATA 0.01, 1, -0.25, -0.1, -0.3

S=0

FOR I = 1 TO 10

READ Y(I)

IF Y(I) >0 THEN S = S + Y(I)

NEXT I

PRINT “ S = “; S

END

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

НАЧАЛО

S = 0

I = 1

Ввод

>0 ДА

НЕТ

I = I + 1

Да

нет

ПЕЧАТЬ S

КОНЕЦ