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

Question

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

Answer 1

Var a: array [1..15] of integer;
    i, m: integer;
begin
     m := 1;     for i := 1 to 10 do     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          if (a[i] mod 2 = 1) then m := m * a[i];
     end;
     writeln(m);
end.

Уже делал)

Comments

проверь. не тот ответ получается

---

Var a: array [1..10] of integer;
i, m: integer;
begin
m := 1; for i := 1 to 10 do begin
a[i] := random(15)+1;
writeln('[', i, '] => ', a[i]);
if (a[i] mod 2 = 1) then m := m * a[i];
end;
writeln(m);
end.

Answer 2

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.