Question

В одномерном целочисленном массиве вычислить произведение ненулевых элементов, расположенных на четных местах. В массиве 10 элементов, которые вводятся вручную с клавиатуры. Разработать программу на языке Pascal.

Answer 1

const

 n=10;

var

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

 i,pr:integer;

 flag:boolean;

begin

 pr:=1; flag:=false;

 for i:=1 to n do

   begin

     readln(a[i]);

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

       begin

         pr:=pr*a[i];

         flag:=true;

       end;

   end;

 if flag then

   writeln('Произведение: ',pr)

     else

       writeln('Нет подходящих множителей.');

end.