Составьте блок схему алгоритма и программу вычисления в массиве a(n) произведения отрицательных элементов.

mayer3 mayer3    3   20.05.2019 13:40    3

Ответы
ElenaOlegovna26 ElenaOlegovna26  13.06.2020 23:53

 

Считаем, что массив А(N) и N заданы глобально и заполнены в основной программе.

 

Function SumN:real;

var i:integer;S1:real;

begin

S1:=1;

For i:=1 to N do  If A(i)<0 then S1:=S1*A(i);

SumN:=S1;

End;

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика