Question

сформулируйте массив из 10 целых чисел из промежутка [1;15] и вычислите произведение элементов массива с нечетными номерами

Answer 1

program 123;
var a:array[1..10] of integer;
i,p: integer;
begin
a[i]:=random(15);
p:=1;
for i:=1 to 10 do
                        if (i mod 2<>0) then (p:=(a[i]*p));
end.