var i, neg_k, pos_k, pos_s, neg_p: integer; a: array[1..n] of integer;
begin for i := 1 to n do begin a[i] := random(10 + 50) - 10; write(a[i], ' '); end; writeln();
neg_p := 1; for i := 1 to n do if a[i] > 0 then begin pos_k := pos_k + 1; pos_s := pos_s + a[i]; end else if a[i] < 0 then begin neg_k := neg_k + 1; neg_p := neg_p * a[i]; end; writeln('Positive: ', pos_k, ' ', pos_s); writeln('Negative: ', neg_k, ' ', neg_p); end.
