Составьте блок схему алгоритма и программу вычисления в массиве A(N) произведения отрицательных элементов.
Ответы
Ответ дал:
1
Считаем, что массив А(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;
Похожие вопросы
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад