Создать массив А(15).Определить произведение элементов массива,стоящих ** четных...

Question

Создать массив А(15).Определить произведение элементов массива,стоящих на четных местах.Срочно, пожалуйста!!!

Answer 1

//Pascal
//Числа случайные в диапазоне [-10;10]

var
  A: array [1..15] of integer;
  i: byte;
  mult: longint;
begin
  mult := 1;
  randomize; //В PascalABC.NET можно убрать
  for i := 1 to 15 do
  begin
    A[i] := random(21)-10;
    if i mod 2 = 0 then mult := mult * A[i];
    write(A[i], ' ');
  end;
  writeln;
  writeln('Произведение элементов на четных местах = ', mult);
  readln;
end.