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