Цитата:
|
Сообщение от Мартышонок
5. Имеется целочисленный массив, состоящий из N элементов (N - чётное): Найти произведение элементов стоящих на нечётных позициях
|
var
mas:array [1..100] of integer;
proizv:longint;
i,n:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
proizv:=1
for i:=1 to n do
if i mod 2 <> 0 then proizv:=proizv*a[i];
writeln(proizv);
end.