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

[Ekaterina]

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

[sheka]

Вот что-то похожее. в теги кода это взять не насмелюсь

Код

s = 0
i = 1
wile i<=20 and 0<a(i) do s = s + a(i)
d = 1
i = 1
wile i<=20 and a(i)<0 do d = d / a(i)
for i = 1 to 20 do writln[a(i)]
write{s;" ";d}

Берем книжку и учимся.

Сообщение отредактировано: Lapp - 20.05.2011 3:39