Помогите с паскалем.

Ввести одномерный массив A из 12 элементов. Определить в нём

произведение чётных элементов.

Question

Информатика

Илюха

20 декабря, 00:07

Помогите с паскалем.

Ввести одномерный массив A из 12 элементов. Определить в нём

произведение чётных элементов.

+2

Ответы (1)

Знаете ответ на вопрос?

Терентий · Answer 1

Program al; 6

const n=12;

var a : array[1 ... n] of integer;

p, i:integer;

begin

writeln ('vvedite massiv=') ;

for i : = 1 to n do readln (a[i]) ;

p:=1; for i : = 1 to n do

if a[i] mod 2=0

then

p:=p*a[i];

writeln ('proizwedenie ciotnih elementov=', p) ;

readln;

end.

Помогите с паскалем.Ввести одномерный массив A из 12 элементов. Определить в нёмпроизведение чётных элементов.

Помогите с паскалем.

Ввести одномерный массив A из 12 элементов. Определить в нём

произведение чётных элементов.