Question

На
найдите произведение элементов, индексы которых чётны, а сами элементы нет.
заранее ❤️​

Answer 1

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

i,p:integer;

begin

p:=1;

for i:=1 to 10 do

begin

write ('Введите ',i:2,' элемент массива и нажмите Enter ');

read (a[i]);

if (i mod 2 = 0) and (a[i] mod 2 = 1) then p:=p*a[i];

end;

writeln;

write ('Массив ');

for i:=1 to 10 do write (a[i],'  ');

writeln;  

write ('Произведение элементов, индексы которых чётны, а сами элементы нет, равно ',p)

end.

Answer 2

const

 nn = 100;  // максимальное число элементов

var

 a: array[1..nn] of integer;

 i, n: integer;

 p: real;

begin

 write('n = ');

 read(n);

 writeln('введите элементы массива');

 p := 1;

 for i := 1 to n do

 begin

   read(a[i]);

   if (i mod 2 = 0) and (a[i] mod 2 <> 0) then

     p := p * a[i];

 end;

 writeln('П = ', p);

end.