Составьте блок схему алгоритма и программу вычисления в массиве A

Считаем, что массив А (N) и N заданы глобально и заполнены в основной программе. Function SumN: real; var i: integer; S1: real; beginS1: =1; For i: =1 to N do If A (i) <0 then S1: =S1*A (i); SumN: =S1; End;