Question

составить программу, которая заполняет массив А [1..11] случайными целыми числами в диапазоне от 4 до 18,находит сумму нечётных элементов и находит произведение элементов с четными индексами.

Answer 1

program fantscrin;

 const n = 11;

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

     i,s,p:integer;

Begin

 for i:=1 to n do

   a[i]:= random(8)+4;

 for i:=1 to n do

   write(a[i], '  ');

   

 s:=0;

 p:=1;

 for i:=1 to n do

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

                    else s:=s+a[i];  

   

 writeln('');

 writeln('Сумма = ',s);

 writeln('Произведение = ',p);

End.