Вопрос составьте программу Паскаль Поставьте программу вычисления в массиве A(N) произведения отрицательных

[Edidos]

составьте программу Паскаль Поставьте программу вычисления в массиве A(N) произведения отрицательных элементов

 

[Arman]

pr:=1; for i:=1 to N do if A < 0 then pr:=pr*A;