В массиве 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
Похожие ответы