Написать функцию для определения произведения четных элементов одномерного массива

@Mark1615 · Регистрация: 04.04.2014

Написать функцию для определения произведения четных элементов одномерного массива.

@dela · 05.04.2014, 21:05

Pascal

function mult(mas : array [1..n] of integer):integer;
var i, res: integer;
begin
     res := 1;
     for i := 1 to n do
         if (mas[i] mod 2 = 0) then
            res := res * mas[i];
     mult := res;
end;

@Mark1615 0 / 0 / 0 Регистрация: 04.04.2014 Сообщений: 30
		1
	Написать функцию для определения произведения четных элементов одномерного массива 05.04.2014, 18:59. Показов 1156. Ответов 1 Метки нет (Все метки) Написать функцию для определения произведения четных элементов одномерного массива. 0

Опции темы

Написать функцию для определения произведения четных элементов одномерного массива

Решение