В массиве 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]);