Задача с массивом Опции

[Ekaterina]

Пожалуйста помогите решить задачу!
Вычислить сумму положительнх элементов до первого отрицательного и произведение отрицательных элементов до первого положительного элемента в массиве A(n), n<=20.Вывести массив, сумму и прозведение.

[Krjuger]

goto M2
end;
M2:end.

Вот это убило мой мозг совсем.
А еще не понятно,а если первая серия состоит из отрицательных элементов,то надо считать серию из положительных или уже нет?
Кстати посмотри на свой код,пускай у тебя серия 2 3 4 -10 -4 ты считаеш в цикле и проверяеш первые 3 элемента все ок, они положительны сумма накапливается ты идеш на 4 элемент,он отрицателен и тут отрабатывает кусок else,но что в нем? В нем печать суммы и переход на проверку отрицательности в цикле,но ты опять начинает с первого элемента,а он у нас 2 и он положительный, как мы уже выяснили, и вполне логично, что строчка P:=P*A[i] никогда не отработает и ты сразу переходиш на еlse который печатает неверный p и тд,еще я лично не понял почему у каждой строчки кроме begin, else, for есть ";",а у
S:=S+A[i]
P:=P*A[i]
их как не странно нету.

Сообщение отредактировано: Krjuger - 20.05.2011 20:07