Дан массив целых чисел, содержащий 15 символов PascalABC

Question

Дан массив целых чисел, содержащий 15 символов PascalABC

егор могила Ученик (200), на голосовании 1 год назад

дан массив а целых чисел содержащий 15 символов. вывести на экран индексы четных элементов массива и найти произведение этих элементов

Answer 1

т.к. запрос был дан в теме php, то и ответ буду давать на нем

var $array = функция формирующий массив;
foreach ($array as $key -> $value)
{
if($key % 2)
{
не четное
}
else
{
$sum = $sum * $value['имя элемента массива'];
}
}

Answer 2

 var  
   a: array[1..15] of integer; 
   i, evenProduct: integer; 
begin 
   evenProduct := 1; 
   for i := 1 to 15 do 
   begin 
      readln(a[i]); 
      if a[i] mod 2 = 0 then 
      begin 
         writeln('Even element found at index: ', i); 
         evenProduct := evenProduct * a[i]; 
      end; 
   end; 
   writeln('The product of even elements is: ', evenProduct); 
end.