Ответ:

Объяснение:

1 var

2 i, kp, kn, s: Integer;

3 p: Real;

...

4 p:=1;

5 for i:=1 to n do begin

6 if a[i]>0 then begin Inc(kp); s:=s+a[i]; end;

7 if a[i]<0 then begin Inc(kn); p:=p*a[i]; end;

8 end;

9 WriteLn('kp=',kp,' sp=',s,' kn=',kn,' pn=',p:0:0);

10 end.