program Array1;
var N,Count,Sum,Mult,i: longint;
  a: array[1..10000] of integer;
begin
  Count := 0;
  Sum := 0;
  Mult := 1;
  writeln('Введите количество элементов в массиве:');
  readln(N);
  for i:=1 to N do begin
    writeln('Введите ',i,' элемент массива:');
    readln(a[i]);
    if a[i] = 0 then begin
      inc(Count);
    end
    else if a[i] < 0 then begin
      Sum := Sum + a[i];
    end
    else begin
      Mult := Mult * a[i];
    end;
  end;
  writeln;
  writeln('Текущий массив равен:');
   for i:=1 to N do begin
     write(a[i], ' ');
   end;
   writeln;
   writeln('Количество нулей равно ',Count, ', сумма отрицательных элементов равна ', Sum,', произведение положительных равно ', Mult);
   readln();
end.