В массиве A найти произведение четных элементов и сумму квадратов нечетных элементов - Turbo Pascal

Формулировка задачи:

В массиве A найти произведение четных элементов и сумму квадратов нечетных элементов.

Решение задачи: «В массиве A найти произведение четных элементов и сумму квадратов нечетных элементов»

textual
                            Листинг программы 
                        
pr:=1;//произведение
sm:=0;//сумма
for i:=1 to n do
if a[i] mod 2=0 then p:=p*a[i]
else sm:=sm+sqr(a[i]);

Оцени полезность:

6 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы