Question

Помогите, пожалуйста. Паскаль ABC.

Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите произведение элементов, имеющих нечетные индексы. Выведите на экран исходный массив и полученное произведение.

Answer 1

const  n = 10;
var  a :array [1..n] of integer;  i, p :integer;
begin
  randomize;  for i:= 1 to n do    a[i]:= random(100);  p:= 1;  for i:= 1 to n do    if i mod 2 = 1 then      p:= p * a[i];  for i:= 1 to n do    write(a[i],' ');  writeln;  writeln(p);
end.