Pomogite

[Stani4nik]

Дан одномерный целочисленный массив А, состоящий из N элементов, N-заданное натуральное число.Найдите сумму элементов данного одномерного массива до первой перемены знака и их количество.

Помогите можалуйста,очень надо!!!

[sheka]

Сообщение от Stani4nik

Polnoe re6enie pazaluista.

icq 255507394.
50 рублей.

[Stani4nik]

как человека прошу,я уверяю кину тебе 50 р

[sheka]

вот когда Скинешь - тогда будет тебе полный текст программы!

[Stani4nik]

Я на экзамине,слово даю.

[sheka]

s:=0; k:=0; i:=1;
if a[i]<=0 then while (i<=n)and(a[i]<=0) do begin inc(s,a[i]); inc(k); inc(i); end;
if a[i]>=0 then while (i<=n)and(a[i]>=0) do begin inc(s,a[i]); inc(k); inc(i); end;

раз на экзамене, то хоть что-то та должен знать.