visual basic. Дана последовательность из М чисел. Найти сумму и произведение всех положительных чисел

[СергейКл]

Помогите решить, плиз! Дана последовательность из М чисел. Найти сумму и произведение всех положительных чисел

[ViktorR]

А что собственно не получается?
Положительные числа можно выделить условным оператором:

if mas(i) > 0 then
    ...
    ...
End If

Сумму и произведение чисел можно найти так:

Sum = 0
Mull = 1
for i = 1 to M
   Sum = Sum + mas(i)
   Mull = Mull * mas(i)
Next

Это примеры кода, которые можно приспособить к задаче ...


Как-то так, ...

[СергейКл]

извините , не пойму что значит sum=0 и mull=1

[Serge_Bliznykov]

Сообщение от СергейКл

извините , не пойму что значит sum=0 и mull=1

Это операция присвоения.
переменной sum присвоить значение 0
переменной mull присвоить значение 1

[СергейКл]

а зачем им присваивать 0 и 1, можете пояснить

[Serge_Bliznykov]

Сообщение от СергейКл

а зачем им присваивать 0 и 1, можете пояснить

для того, чтобы ИНИЦИЛИЗИРОВАТЬ переменные.

поясню.
Вы дали Буратино два яблока.
Сколько у Буратино яблок?

Ответ - НЕИЗВЕСТНО, сколько, потому что Мы не знаем, сколько их было ДО того, как мы ему добавили ещё яблок.

Чтобы избежать такую ситуацию, нужно ввести иницилизацию переменной.
пусть у Буратино НЕТ (ноль) яблок.
в коде это будет так:

sum = 0

теперь насчёт умножения. Переменную тоже нужно иницилизировать.
Но занести туда ноль нельзя. Потом мы будет умножать наши числа на то, что мы туда занесли. Если ноль умножить на любое число, будет ноль.
Какое же число занести в переменную, чтобы умноженное на любое число, мы получили это самое число?
Ответ - 1 (единицу). Потом мы умножаем единицу на число и получаем это число в переменной:

Mull = Mull * mas(i)

первый ход цикла, в переменной Mull будет первое число массива
(потому что 1 * mas(1) = mas(1)
при втором прохождении цикла в переменной Mull будет первое число массива, умноженное на второе
(Mull = mas(1) *mas(2) (я подставил вместо Mull её значение, полученное на предыдущем шаге.
Ну и т.д.

пройдитесь пошагово по коду (можно на листочке бумаги), поймёте, что к чему.

[Stilet]

Это инициализация. Присвоение переменным начального значения, чтоб последующие арифметические операции считали правильно. Сам посуди что будет если первому значению геометрической прогрессии присвоить ноль.

[СергейКл]

то есть как я понимаю программа примет вид:

Privat sub....
Dim sum, mull,i as integer 
if  mas(i)>0 then 
sum=0
mull=1
for i = 1 to M
   Sum = Sum + mas(i)
   Mull = Mull * mas(i)
Next
end sub

[Stilet]

Ну я бы IF вообще убрал бы. Или по крайней мере включил его внутрь цикла.
И кстати - он у тебя написан с ошибкой.

[СергейКл]

а где ошибка
?