В массив X(k) найти сумму элементов и их количество до первой перемены знака.
Данные для ввода: k=6, X(3;0;4;-5;2;-3).

Var   X:array[1..100] of integer;   i,k:integer;   S:real;BeginS:=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;   Endelse   Begin   While (i<=k)and(X[i]>=0) do      Begin      S:=S+X[i];      i:=i+1;      End;   End;WriteLn('S = ',S);End.