Const
n = 20;
var
a: array[1..n] of integer;
i, k: integer;
s, p: longint;
begin
Randomize;
Write('Элементы массива: ');
k := 0; s := 0; p := 1;
for i := 1 to n do
begin
a[i] := Random(101) - 50;
Write(a[i]:4);
if a[i] = 0 then k := k + 1
else if a[i] > 0 then s := s + a[i]
else p := p * a[i];
end;
Writeln(#13#10, 'Нулевых элементов: ', k, ', сумма положительных: ', s,
', произведение отрицательных: ', p)
end.
Тестовое решение:
Элементы массива: 19 -24 49 -22 -25 0 37 29 13 -18 -33 -13 4 -7 -13 -34 -43 18 -28 -30
Нулевых элементов: 1, сумма положительных: 169, произведение отрицательных: 2101172736