Дан массив, состоящий из 8 элементов. вычислить сумму положительных элементов массива. vba

206

479

Посмотреть ответы 2

Ответы на вопрос:

DaVinci002

Информатика

4,4(68 оценок)

Dim a (8) as integer dim sum as integer sum = 0 for i as integer = 1 to 8 input a(i) if a(i) > 0 then sum = sum + a(i) end if next print "сумма положительных элементов = "; sum ' пример: 1 1 1 1 1 -1 1 3 сумма положительных элементов = 9