В массив X (k) найти сумму элементов и их количество до первой перемены знака.

Данные для ввода: k=6, X (3; 0; 4; -5; 2; -3).

Var

X:array[1 ... 100] of integer;

i, k:integer;

S:real;

Begin

S:=0;

Write ('k = ') ; ReadLn (k) ;

Write ('Введите массив X[', k,']: ') ;

For k: = 1 to k do

Read (X[k]) ;

i:=1;

if X[1]<0 then

Begin

While (i<=k) and (X[i]<0) do

Begin

S:=S+X[i];

i:=i+1;

End;

End

else

Begin

While (i=0) do

Begin

S:=S+X[i];

i:=i+1;

End;

End;

WriteLn ('S = ', S) ;

End.